# $string contains the 'Received' header
my $received = Mail::Field->new('Received',$string);
my $parse_tree = $received->parse_tree();
my $by = $parse_tree{'by'};
my $domain = $by{'domain'};