Select Code to Download

May  2 07:06:20 lon.mail.net exim[1234]: 2012-05-02 07:06:20 1PSPtU-00
+04en-1e <= it_ndt_bounces@new.itunes.com H=smtpmail.com [21.5.10.4] I
+=[8.4.14.4]:25 P=esmtp S=1966 id=1603882764.112965659.1335927964793.M
+ail.cboxp@ednabay.apple.com T="New on iTunes: One Thing And, Then Ano
+ther, Cooking Apps,\n Great Deals on First Seasons, and M"
May  2 07:06:20 lon.mail.net exim[1234]: 2012-05-02 07:06:20 1PSPtU-00
+04en-1e <= it_ndt_bounces@new.itunes.com H=smtpmail.com [21.5.10.4] I
+=[8.4.14.4]:25 P=esmtp S=1966 id=1603882764.112965659.1335927964793.M
+ail.cboxp@ednabay.apple.com T="New on iTunes: One Thing And, Then Ano
+ther, Cooking Apps,\n Great Deals on First Seasons, and M"
May  2 07:06:20 lon.mail.net exim[1235]: 2012-05-02 07:06:20 1PSPtU-00
+04en-1e => peterpiper <peterpiper@nosuchdomain.net> R=local_mail T=lo
+cal_maildir_mail_drop

#!/usr/bin/perl
use strict;
...

print "$csv\n";
}

if contains <= then ......
else if contains => then .....
...
else if contains ** then ....
else somethingelse
etc