my $received=Mail::Field->new('Received',$string);
my $parse_tree=$received->parse();
my $by=$parse_tree->{'by'};
print($by->{'domain'}."\n");