my @logentries = <FH>;

foreach (@logentries) {
	next unless ($_ !~ /^\s*$/); 
	$_ =~ m/(\d+.\d+.\d+.\d+)\s-\s-\s\[(\d{2}\/\w+\/\d{4}\:\d{2}\:\d{2}\:\d{2})\s\+0000\]\s\"\w+\s\S+\s\S+\s\S+\s\S+\s\S+\s\"(.+?)\(/; 
	$ip = $1;
	push (@ipadressen, $ip);
	$date = $2;
	push (@timeresult, $date);
	$starttime = $timeresult[0];
	$endtime = $timeresult[$#timeresult];
	$useragent = $3;
	push (@agent, $useragent);
	$line++;
	}
close FH;