_Analyzing Web Traffic with Perl_
by Frederic Bien, Michel Delory, and Rick McGillis


Listing One
while(<LOG>)
{
   if(/^(S*).*[(S*).*].*"(.*)"s*(d*).*$/)
     {
        $visitor = $1;
        $dateTime = $2;
        $request = $3;
        $status = $4;
      }
}

Listing Two
($counter, @stamps) = split($;, $Visitors{$visitor}); #split the 
                                                      #  values ...