# eine Zeile aus einem Apache-Log
#37.108.236.196 - - [12/Oct/2013:06:58:20 +0200] "GET /repo/tools/opera/extensions/searchengine-preview/1.2.8.6 HTTP/1.1" 200 575 "-" "Opera/9.80 (Windows NT 5.1; U; pl) Presto/2.10.289 Version/12.02"
my $line = <LOGFILE>;

my ($ip, $date, $status) 
  = $line =~ m|(\d+\.\d+\.\d+\.\d+).+\[(.+)\].+"\s(\d{3})\s|;

print "$ip\t$date\t$status", "\n";