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