Select Code to Download

#!/usr/bin/perl -w
use strict;
use Text::CSV_XS;
...
    }
    print join(' ',$cols->[0],$cols->[1],$cols->[7],$cols->[9],$cols->
+[13],$cols->[18],$cols->[19]),"\n";
}

# Message Tracking Log File
# Exchange System Attendant Version 6.5.7226.0
# Date    Time    client-ip    Client-hostname    Partner-Name    Serv
+er-hostname    server-IP    Recipient-Address    Event-ID    MSGID   
+ Priority    Recipient-Report-Status    total-bytes    Number-Recipie
+nts    Origination-Time    Encryption    service-Version    Linked-MS
+GID    Message-Subject    Sender-Address
...
2005-9-10    0:0:17 GMT    -    -    -    storming    -    c1r3ai4g@ao
+l.com    1033    2433Axxxxxxxxxxxxxxxx428E5EE4C6795006DB02DADF78@stor
+ming.Domain.name1    0    0    11927    1    2005-9-10 0:0:16 GMT    
+0    -    -    Fw: Hey Ugly line expansion and re-offer    Auser@Doma
+in.name    -

2005-9-10    0:0:17 GMT    -    -    -    storming    -    c1r3ai4g@ao
+l.com    1020    2433A69xxxxxxxxxxxxxxxx95006DB02DADF78@storming.Doma
+in.name1    0    0    11927    1    2005-9-10 0:0:16 GMT    0    -   
+ -    Fw: Hey Ugly line expansion and re-offer    Auser@Domain.name  
+  -