in reply to perl win32::OLE outlook append the email subject to end of each line of the email body.

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

[download]
it spoils $1 that is used a line after;
yet to append something to each line of body you need smth like this 
 print $email_fh $msg->{Body}=~s/^/foobar $name /rgm;

[download]
  • Comment on Re: perl win32::OLE outlook append the email subject to end of each line of the email body.
  • Select or Download Code

In Section Seekers of Perl Wisdom