Select Code to Download

my @gene = split //, $seq[$i];
my $count = @gene;
...
for (my $i=0; $i<$count; $i+=3)    {
    ...
}

   substr($genestring, $i, 1)