if($line=~/(\d+\.\d+\.\d+\.\d+) - - \[(.+?)\] "(.+?)" (\d+) (\d+|-) "(.+?)" "(.+?)"$/)
{
  my ($ip,$date,$request,$status,$size,$referer,$useragent)=($1,$2,$3,$4,$5,$6,$7);

  # mach was mit den Werten.
}