note
vkon
remove this line
<code>
my @name = split(/ /, $msg->{Subject});
</code>
it spoils $1 that is used a line after;<br>
yet to append something to each line of body you need smth like this
<code>
print $email_fh $msg->{Body}=~s/^/foobar $name /rgm;
</code>
1110246
1110246