GTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATC

##</code><code>##

  DB<2> print "$1\n"  while ($seq =~ m/(ATG(?:.*?)(TAG|TAA|TGA))/g);
ATGGTTTCTCCCATCTCTCCATCGGCATAA
ATGATCTAA

##</code><code>##

(ATG)GTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATC(TAA)