or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.014;
...
"
'Jun 12 10 mail (sender@sender.com) - (recip1@domain.com),(recip2@doma
+in.com) -1.889 25623, queued_as: B67837C0052 Subject goes here Sender
+(sender@sender.com)'
'Jun 12 10 mail (sender@sender.com) - recip1@domain.com,recip2@domain.
+com -1.889 25623, queued_as: B67837C0052 Subject goes here Sender(sen
+der@sender.com)'