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