my @name = split(/ /, $msg->{Subject});

##</code><code>##

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