Help for this page

Select Code to Download

Select or download this

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