while ($dna =~ /^(\w\w\w)*?TGA/g)