REGEX help

Mike98mm has asked for the wisdom of the Perl Monks concerning the following question:

I am new to perl.

I am trying to write a simple code to find an ORF (open reading frames)

I am trying to identify the ORF with start(ATG) and stop codons(TAA|TAG|TGA) and print out the ORF.

The nucleotide sequence:

TTCAGGTGTTTGCAACTGCGTTTTATTGCAAGAAAGAGTGGAGGGGTTTCCATGGGGCCCACCTCACAAC
+CCACTC
TTCACCCCCAAAATCACGCAGGGATCGGACTCAGGAAAGGGAAGCATCTGTGTGTTGCATACGAGCCCTT
+CCTGTACTTACTTCTTTCACAGCAGGGAAGG
AAGAGGGAAGAGGCAGCTGTGGAGAGGATCAGGTTGCGGGAGGTGGGTATCTCGCTGCTCTGACCTTACG
+TACAGTCCTCCACAGAAGCATCAAAGTGGACT
GGCACATATCGGCTCCCTTCACAGGCCACAATCATCTGTCTCTCCTTCGGGCTGGTCCGGTATCCAC
[download]

2018-05-02 Athanasius added code and paragraph tags

Back to Seekers of Perl Wisdom