my $date;
my $lastdate = '';
my $logdata = '';
while ( <LOGFILE> ) {
   $date = extract_date( $_ );
   $logdata .= $stuff;
   if (length $lastdate and $lastdate ne $date) {
     print_report( $lastdate, $logdata );
     $logdata = '';
   }
   $lastdate = $date;
}
print_report( $lastdate, $logdata );