use strict;
use warnings;

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

my $entry = '67.60.185.31 - - [14/Jan/2008:02:25:54 -0800] "GET /display.cgi?2643943|3334115 HTTP/1.1" 200 55 "-" "Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-us) AppleWebKit/523.10.6 (KHTML, like Gecko)" "67.60.185.31"';

$entry =~ /$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";

##</code><code>##

67.60.185.31
14/Jan/2008:02:25:54 -0800
GET
/display.cgi
2643943|3334115
1.1
200
55
-
Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-us) AppleWebKit/523.10.6 (KHTML, like Gecko)
67.60.185.31