Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...

print "$gi"."\t"."$version"."\t"."$cds\n" if (defined $cds and defined
+ $gi and defined $version);
}

LOCUS       NC_0000230           600020 bp    DNA     linear   CON 21-
+APR-2007
VERSION     NC_000023.10  GI:123456789
     CDS             join(11111..222222,333333..444444)
...
     CDS             join(66666..7777777,888888..99999)
                     /db_xref="GI:10101010"
//

        
    123456789
    
...
    join(66666..7777777,888888..99999)
10101010"    123456789
    join(66666..7777777,888888..99999)

5555555 123456789 join(11111..222222,333333..444444)
10101010 123456789 join(66666..7777777,888888..99999)