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