[0] Perl> $dna = 'atctcggataatgggataaaaatataggctataaatggcgccccggctaattttt';;
[0] Perl> print $1 while $dna =~ m[atg(.+?)(?=taa|tag|tga)]g;;
gga
gcgccccggc