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

##</code><code>##

else { $seqs{$sequence} = "$date;$orig;$desg;$body"; }
##</code><code>##

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

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"; }
}