my $current;
while ( <DATA> ) {
  if ( /^$dateRegex/ ) {
    process( $current ) if defined $current;
    $current = $_;
  }
  else {
    $current .= $_;
  }
}
process( $current ) if defined $current;