Select Code to Download

my $parse_log_entry = qr/^($dateRegex.*?)(?=(?:^$dateRegex|\z))/ms;

my $current;
while ( <DATA> ) {
...
  }
}
process( $current ) if defined $current;