Select Code to Download

         while ($dna =~ /(\w\w\w)*?TGA/g) {  # note the minimal *?
            print "Got a TGA stop codon at position ", pos $dna, "\n";
        }
...

        Got a TGA stop codon at position 18
        Got a TGA stop codon at position 23