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

print LOGFILE $_ while (<LOG>); #assuming LOGFILE was opened earlier in your code