Decoding DNA with Perl

Go back to Perl introductionary training#Exercises

• Find the answer in ultimate-sequence.txt ? (hint: use %AA1)

>ultimate-sequence ACTCGTTATGATATTTTTTTTGAACGTGAAAATACTTTTCGTGCTATGGAAGGACTCGTTA TCGTGAAGTTGAACGTTCTGAATGTATGCCTCTTGAAATGGAAAATACTCATTGTTTATCT GAAATTTGAATGGGAATTTTATCTACAATGTTTTATTCTTACAGAACATTAAATTGTGTTA TGTTTCATTTCACATTTTAGTAGTTTTTTCAGTGAAAGCTTGAAAACCACCAAGAAGAAAA GCTGGTATGCGTAGCTATGTATATATAAAATTAGATTTTCCACAAAAAATGATCTGATAAA CCTTCTCTGTTGGCTCCAAGTATAAGTACGAAAAGAAATACGTTCCCAAGAATTAGCTTCA TGAGTAAGAAGAAAAGCTGGTATGCGTAGCTATGTATATATAAAATTAGATTTTCCACAAA AAATGATCTGATAA

 
%AA1='UUU','F','UUC','F','UUA','L','UUG','L','UCU','S','UCC','S','UCA','S','UCG','S','UAU','Y','UAC',
'Y','UAA','*','UAG','*','UGU','C','UGC','C','UGA','*','UGG','W','CUU','L','CUC','L','CUA','L','CUG',
'L','CCU','P','CCC','P','CC','P','CCG','P','CAU','H','CAC','H','CAA','Q','CAG','Q','CGU','R','CGC',
'R','CGA','R','CGG','R','AUU','I','AUC','I',AUA','I','AUG','M','ACU','T','ACC','T','ACA','T','ACG',
'T','AAU','N','AAC','N','AAA','K','AAG','K','AGU','S','AGC','S','AGA','R','AGG','R','GUU','V','GUC',
'V','GUA','V','GUG','V','GCU','A','GCC','A','GCA','A','GCG','A','GAU','D','GAC','D','GAA','E','GAG',
'E','GGU','G','GGC','G','GGA','G','GGG','G');