#!/usr/bin/perl -w
use strict;
use warnings;

my $log_pattern = q{(.*) \- \- \[(.*)\] \"(.*) (.*)\?(.*) HTTP\/(.*)\" ([0-9]*) ([0-9]*) \"(.*)\" \"(.*)\" \"(.*)\"};

open (LOG, "< $ARGV[0]") or die "Cannot open file $ARGV[0]\n";

my @log = <LOG>;

close ( LOG );

my $line;

foreach $line (@log) 
{  
	$line =~ /$log_pattern/;
	print $1."\n";
	print $2."\n";
	print $3."\n";
	print $4."\n";
	print $5."\n";
	print $6."\n";
	print $7."\n";
	print $8."\n";
	print $9."\n";
	print $10."\n";
	print $11."\n";
}
close(SEM);