Select Code to Download

    while (<$in>) 
    {
        my $locus =~ /LOCUS\s+(\w+)/;           
...
        print $out $_;

    }

Created: Tuesday, July 12, 2005 4:14 PM
LOCUS       AJ877264                 704 bp    DNA     linear   INV 15
+-APR-2005