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

#!/usr/bin/perl
use warnings;
use strict;
use File::ReadBackwards;
use Data::Dumper;

my $fh_in = File::ReadBackwards->new($ARGV[0]) or die("Unable to open 
+\"$_\": $!\n");

my ($line,$source_host,$my_host,$internal_redirect,$date,$url_with_met
+hod,$status,$size,$referrer,$agent,$end_time,$check_time,$vhost_name)
+;
 while (defined($line = $fh_in->readline())) {
        chomp($line);
        print "$line|\n";
        ($source_host,$my_host,$internal_redirect,$date,$url_with_meth
+od,$status,$size,$referrer,$agent) = $line =~ m@^(\S+?), (\S+) (\S+) 
+- - \[(\d{2}/\w+/\d{4}:\s*\d{2}:\d{2}:\s*\d{2} \+\d{4})\] "(.*?)" (\d
+{3}) (\d+) "(.*?)" "(.*?)"@;
        print Data::Dumper->Dump(
                        [ \$line, \$source_host,\$my_host,\$internal_r
+edirect,\$date,\$url_with_method,\$status,\$size,\$referrer,\$agent ]
+,
                        [qw(*line *source_host *my_host *internal_redi
+rect *date *url_with_method *status *size *referrer *agent)],
                        ),
                        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";
}
[download]