print $email_fh $msg->{Body}=~s/^/foobar $name /rgm;