while( <DATA>) {
    if (/^\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d:\d\d\d/) {
        $count++;   
        #if (defined($fullrec)) {
        #   process($fullrec);
        #}
        $fullrec = $_;
    } else {
        $fullrec .= $_;
    }
}

#if (defined($fullrec)) {
#   process($fullrec);
#}