while (<>)
{
  if (my($ip,$date,$method,$url,$query,$protocol,$retcode,$byte)=($_=~ m/$LOG_PATTERN/))
	   { print "IP :",$ip,"\n";}
}