198.168.0.4 - - [13/Nov/2006:03:51:36 +0700] "GET /pool-apps.php?mesg=%00C%00o%00c%00o%00k%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00i%00k%00b%00a%00l%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00+%00n%00a%00s%00t%00i%00t%00i&src=%2B218544448366&dest=3422&ts=2006-11-12+20:51:36&smsc=as3&service=default&udh=&tid= HTTP/1.1" 200 5

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Text::CSV_XS qw(combine);
use URI::Escape;
die "Usage: perl $0 [input_file.gz] \n" unless @ARGV;

my($input_file) = @ARGV;
open(my $FH, "zless $input_file| grep as3|") or die $!;

my $csv = Text::CSV_XS->new;
print map {
   if($csv->combine(@$_)) { $csv->string, "good\n"} else {  "failed \n" };
}
sort { $a->[2] <=> $b->[2] }
map {
              $_ = uri_unescape(scalar $_);
               #tr/\x00//d;
               #tr/\xE4\xF1\xEC//d;
               #tr/\xA7//d;
               #tr/\xF6\xF6\xF9\xE9\xC7//d; #because Text::CSV_XS "failed to combine"
               [ m{
                        (\[     # start date
                        [^\]]+  # date
                        \])     # end of date
                        [^=]+   # stuff which is not a =
                        =
                        (.+?) # The message
                        &src=\+

                        (\d+)   # The number
                }x ]
        } <$FH>;