while (<LOG>) {
  print LOGFILE $_ if /$date/..0;
}