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