if (my($ip,$date,$method,$url,$query,$protocol,$retcode,$byte)=($s_=~ m/$LOG_PATTERN/))
#                                                                                   ^