Help for this page
#! perl use strict; ... $text =~ /(\w+)@(\w+)\.com/; print "$1\@$2\n";
12:59 >perl 724_SoPW.pl pilar@delphoss 13:06 >