Just one more picky observation concerning the updated OP code:

The sub-pattern  \d+\d+\d+\d in the updated regex
    /(\d+\-\d+\-\d+\s\d+\d+\d+\d)/
can be more concisely (and, IMHO, better) written as  \d{4,} ('four or more digits'). Moreover, I think I would use some formatting and fewer backwhacks to wind up with something like
    m{ (\d+ - \d+ - \d+ \s \d{4,}) }xms

Thanks! I changed the line to this:



if ( $line =~ /\d{4,}/ { $date = $1; }
[download]



But the part that I think is causing the error is this one:


else { $seqs{$sequence} = "$date;$orig;$desg;$body"; }
[download]



Here is what the error looks like:

[bluethundr@cc126-200:~/perl] $:./3par-test5.pl 
Use of uninitialized value in pattern match (m//) at ./3par-test5.pl l
+ine 29, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-te
+st5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-te
+st5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-te
+st5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-te
+st5.pl line 30, <MYFILE> line 1.
[download]





For greater context, here is the loop in which this statement sits:

while (<MYFILE>) {
    next if (m/^$/);
    last if (m/^Press.*/);
    my ( $line, %seqs, $sequence, $date, $orig, $desg, $body );
    if ( $line =~  /\d\d:\d\d:\d\d/g { $date = $1; }
    else { $seqs{$sequence} = "$date;$orig;$desg;$body"; }
}
[download]

Thanks again!