gibson.pl

   1 #!/usr/bin/perl -w
   2
   3 while (my $line = <>) {
   4         while ($line =~ /^.*[\W]([\w]*?\@samba.org)(.*)$/) {
   5                 print "$1\n";
   6                 $line = $2 . "\n";
   7         }
   8 }