Select Code to Download

substr( $dna, $start + 1, $finish - $start, "X" x ( $finish - $start )
+ );

my $dna;
open DNA, "<dna.file" or die $!;
...
}
close POS;