Select Code to Download

#! perl
use strict;
...
   $text =~ /(\w+)@(\w+)\.com/;

print "$1\@$2\n";

12:59 >perl 724_SoPW.pl
pilar@delphoss

13:06 >