Select Code to Download

#! perl
use strict;
...
__DATA__
ATCGTTGAA
ATCGTTGAATGCAAATGACATGAC

 0:10 >perl 1476_SoPW.pl

...
Got a TGA stop codon at position 23, immediately following []

 0:10 >

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

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