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