my $counter = 0;
my $dateRX = qr/^$date/;  # assuming $date is defined elsewhere
while (<LOG>){
   last if /$dateRX/;
   $counter++;
}
   
while ( <LOG> ) {
   print LOGFILE;
   $counter++;
}