stupid quick and dirty script to parse apache combined log format

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

my $file = $ARGV[0] or die("No file passed");

open IN, "<$file" or die("Can't open file $file");

while(my $line=<IN>) {
    if($line=~m/^(\S+|::1) \S+ \S+ \[([^\]]+)\] "([A-Z]+)[^"]*" \d+ (\d+|-) "[^"]*" "([^"]*)"$/m) {
        my $user_ip = $1;
        my $ts = $2;
        my $method = $3;
        my $bytes = $4;
        my $ua = $5;
        #print "$1 $2 $3 $4 $5\n";
        #print "it matched $line\n";
    } else {
        print "line didn't match $line\n";
    }
}

close IN;