while(){ next unless /$date/ .. eof(LOG); print LOGFILE; }