Works fine for me. 

use strict;
use warnings;
#use diagnostics;

my $log_line = '67.60.185.31 - - [14/Jan/2008:02:25:54 -0800] "GET /di
+splay.cgi?2643943|3334115 HTTP/1.1" 200 55 "-" "Mozilla/5.0 (Macintos
+h; U; Intel Mac OS X; en-us) AppleWebKit/523.10.6 (KHTML, like Gecko)
+" "67.60.185.31"';
my $log_pattern = q{(.*) \- \- \[(.*)\] \"(.*) (.*)\?(.*) HTTP\/(.*)\"
+ ([0-9]*) ([0-9]*) \"(.*)\" \"(.*)\" \"(.*)\"};

my @fields = ( $log_line =~ /$log_pattern/ );

print "$_\n" for @fields;
__END__
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

[download]

However, I'd probably write it this way: 

use strict;
use warnings;

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

my $ip_address = qr{ \d{1,3} (?: \. \d{1,3} ){3} }xms;
my $log_pattern
    = qr{
         ( $ip_address )
         \s \S+           # user name
         \s \S+           # user group?
         \s
         \[
         (
         \d\d /           # day
         (?: Jan | Feb | Mar | Apr | May | Jun
           | Jul | Aug | Sep | Oct | Nov | Dec )   # month
          / \d{4}   # year
          : \d\d : \d\d : \d\d    # time
          \s+ \S+                 # timezone
          )
          \]

         \s
         \"
         ( [A-Z]+ )               # method (GET, POST)
         \s+
         ( \S+ ) \? ( \S+ )       # URL parts
         \s+
         HTTP/( 1\.\d )           # protocol version
         \"
         \s

         ( \d+ )                  # response code
         \s+
         ( \d+ )                  # bytes of response

         \s
         \" ( .* ) \"             # referrer
         \s
         \" ( .* ) \"             # user agent

         \s+
         \" ( $ip_address ) \"
     }xms;

my @fields = ( $log_line =~ /$log_pattern/ );

print "$_\n" for @fields;

[download]

Having written all that, now I'm betting there's a CPAN module that does this and more.

In reply to Re: Parsing Apache logs with Regex by kyle
in thread Parsing Apache logs with Regex by TheGorf

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.