Select Code to Download

$text = 'pilar@delphoss.com type add (#090930-230011-907000 ur22122021
+ pi';
$text =~ s/.*\s(\w+)@(\w+)\.com .*/$1@$2\.(\w+)/;