The Perl Cookbook has

while(<LOGFILE>) {
my ($client,$identuser,$authuser,$date,$time,$tz,$method,$url,$protoco
+l,$status,$bytes) = /^(\S+) (\S+) (\S+) \[([^: ]+):(\d+:\d+:\d+) ([^\
+]]+) "(\S+) (.*?) (\S+)" (\S+) (\S+)$/;
#...
}
[download]

on page 726 (20.12 Parsing a Web Server Log File). Also check 20.13 (Processing Server Logs) for a snippet with format, or check Logfile::Apache.
Cookbook examples are online here.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.