print $2 if ($text =~ /^(From|To|Reply-To):\s+(.+)/);