#!/usr/bin/perl
use strict;
use warnings;

# Variables Declaration and Initialization

my $dna_seq = <<'EOD';
ACCCGGGTCTCATCCCTTGACCCTGGGAACCGGGTCCACATTGAATCAGGTGCGAATGTT
CGCTCGCCTTCTCTGCCTTTCCCGCCTCCCCTCCCCCGGCCGCGGCCCCGGTTCCCCCCC
TGCGCTGCACCCTCAGAGTTGGCTGCAGCCGGCGAGCTGTTCCCGTCAATCCCTCCCTCC
TTTACACAGGATGTCCATATTAGGACATCTGCGTCAGCAGGTTTCCACGGCCGGTCCCTG
TTGTTCTGGGGGGGGGACCATCTCCGAAATCCTACACGCGGAAGGTCTAGGAGACCCCCT
AAGATCCCAAATGTGAACACTCATAGGTGAAAGATGTATGCGAAGACGGGGGTTGAAAGC
CTGGGGCGTAGAGTTGACGACAGAGCGCCCGCAGAGGGCCTTGGGGCGCGCTTCCCCCCC
CTTCCAGTTCCGCCCAGTGACGTAGGAAGTCCATCCATTCACAGCGCTTCTATAAAGGCG
CCAGCTGAGGCGCCTACTAC
EOD

$dna_seq =~ s/\s+//og; # \s == [ \t\n]

# Loading Translation Hash

while (<DATA>) {

};

# Translate Sequence


# Print Results


__END__
# Standard Codon Table
TTT F
TTC F
TTA L
TTG L
CTT L
CTC L
CTA L
CTG L
ATT I
ATC I
ATA I
ATG M
GTT V
GTC V
GTA V
GTG V
TCT S
TCC S
TCA S
TCG S
CCT P
CCC P
CCA P
CCG P
ACT T
ACC T
ACA T
ACG T
GCT A
GCC A
GCA A
GCG A
TAT Y
TAC Y
TAA *
TAG *
CAT H
CAC H
CAA Q
CAG Q
AAT N
AAC N
AAA K
AAG K
GAT D
GAC D
GAA E
GAG E
TGT C
TGC C
TGA *
TGG W
CGT R
CGC R
CGA R
CGG R
AGT S
AGC S
AGA R
AGG R
GGT G
GGC G
GGA G
GGG G
