Help for this page
$sequence =~ /(ATG.*?(?<=TAA|TAG|TGA))/g
ATGGTTTCTCCCATCTCTCCATCGGCATAA ATGA
my @from; my $pos = -1; ... ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGA ATGATCTAA ATGA