Select Code to Download

m@^(\S+?), (\S+) (\S+) - - (\[\d{2}/\w+/\d{4}:\s*\d{2}:\d{2}:\s*\d{2} 
+\+\d{4}\]) "(.*?)" (\d{3}) (\d+) "(.*?)" "(.*?)"@;

#!/usr/bin/perl
use warnings;
use strict;
...
                        qq{\n};
        print "SH:$source_host, MH:$my_host, IR:$internal_redirect, D:
+$date, U:$url_with_method, S:$status, SZ:$size, R:$referrer, A:$agent
+\n";
}