if ( $line =~ /(\d+\-\d+\-\d+\s\d+\d+\d+\+)/ ) { $date = $1; }
    else { $seqs{$sequence} = "$date;$orig;$desg;$body"; }