#! /usr/bin/perl -w
open(FILE, "/logs/000604access.log");
while (<FILE>)
     {
     ($client,$identuser,$authuser,$date,$tz,$method,$url,$protocol,$status,$bytes,$refer,$platform,$extendedinfo) = /^(\S+) (
\S+) (\S+) \[(\S+) (\S+)\] "(\S+) (\S+) (\S+)" (\S+) (\S+) "(\S+)" "(\S) (.*?)"$/;
     ### do some schmacity with variables
     }
close FILE;
exit;