#! perl
use strict;
use warnings;
use Data::Dumper;

for ('133.133.133.133, 87.87.87.87 127.0.0.1 - - [21/Apr/2012:04:35:01 +0200] "GET /seo/vbseocp.php HTTP/1.0" 404 300 "-" "Internet Explorer 6.0"',
     '95.95.95.95, 87.87.87.87 127.0.0.1 - - [22/Apr/2012:04:00:43 +0200] "GET / HTTP/1.0" 200 10211 "http://yandex.ru/yandsearch?text=example.com" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1;)"')
{
    my @parts       = split;
    my %terms;
    $terms{ip1}     = $parts[0] =~ s/ , $ //rx;
    $terms{ip2}     = $parts[1];
    $terms{ip3}     = $parts[2];
                    # $parts[3] eq '-': discard
                    # $parts[4] eq '-': discard
    @terms{qw(day month year hour min sec)}
                    = $parts[5] =~ m! ^ \[ (\d{2}) / (\w+) / (\d{4}) : (\d{2}) : (\d{2}) : (\d{2}) $ !x;
   ($terms{offset}) = $parts[6] =~ m! ^ \+ (\d{4}) \] $ !x;
                    # $parts[7] eq '"GET': discard
                    # $parts[8] eq '/...': discard
                    # $parts[9] eq 'HTTP/1.0': discard
    $terms{int1}    = $parts[10];
    $terms{int2}    = $parts[11];
    my $rest        = join(' ', @parts[12 .. $#parts]);
    $terms{strs}    = [];
    push @{ $terms{strs} }, $1 while $rest =~ / ( \" [^\"]*? \" ) /gx;

    print Dumper(\%terms), "\n";
}