#!/usr/bin/perl

use strict;
use warnings;

use Apache::LogRegex;
use Data::Dumper;

my $lr;

my $log_format =
q/%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"/;

eval { $lr = Apache::LogRegex->new($log_format) };
die "Unable to parse log line: $@" if ($@);

my %data;

open DF, $ARGV[0] or die $!;
while ( my $line_from_logfile = <DF> ) {
    eval { %data = $lr->parse($line_from_logfile); };
    if (%data) {
        print Data::Dumper->Dump(
            [ \$line_from_logfile, \%data ],
            [qw(*line_from_logfile *data)]
          ),
          qq{\n};

        # We have data to process
    }
    else {

        # We could not parse this line
    }
}
close DF;