Help for this page

Select Code to Download

Select or download this

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