View source for Codon code using perl is here

<p>#!/usr/bin/perl</p>

<p><br />
print &quot;\n\n 1. Translate DNA into protein : \n\n&quot;;&nbsp;</p>

<p>my $dna = &#39;&#39;;<br />
my $protein = &#39;&#39;;<br />
my $codon;<br />
&nbsp;sub Codon_table&nbsp;<br />
&nbsp;&nbsp; &nbsp;{<br />
&nbsp; &nbsp; my($codon) = @_;<br />
&nbsp; &nbsp; &nbsp; &nbsp;if($codon =~ /TTT/i){return &#39;F&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TTC/i){return &#39;F&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TTA/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TTG/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TCT/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TCC/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TCA/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TCG/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TAT/i){return &#39;Y&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TAC/i){return &#39;Y&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TAA/i){return &#39;-&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TAG/i){return &#39;-&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TGT/i){return &#39;C&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TGC/i){return &#39;C&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TGA/i){return &#39;-&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /TGG/i){return &#39;W&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CTT/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CTC/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CTA/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CTG/i){return &#39;L&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CCT/i){return &#39;P&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CCC/i){return &#39;P&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CCA/i){return &#39;P&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CCG/i){return &#39;P&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CAT/i){return &#39;H&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CAC/i){return &#39;H&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CAA/i){return &#39;Q&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CAG/i){return &#39;Q&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CGT/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CGC/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CGA/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /CGG/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ATT/i){return &#39;I&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ATC/i){return &#39;I&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ATA/i){return &#39;I&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ATG/i){return &#39;M&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ACT/i){return &#39;T&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ACC/i){return &#39;T&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ACA/i){return &#39;T&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /ACG/i){return &#39;T&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AAT/i){return &#39;N&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AAC/i){return &#39;N&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AAA/i){return &#39;K&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AAG/i){return &#39;K&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AGT/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AGC/i){return &#39;S&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AGA/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /AGG/i){return &#39;R&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GTT/i){return &#39;V&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GTC/i){return &#39;V&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GTA/i){return &#39;V&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GTG/i){return &#39;V&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GCT/i){return &#39;A&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GCC/i){return &#39;A&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GCA/i){return &#39;A&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GCG/i){return &#39;A&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GAT/i){return &#39;D&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GAC/i){return &#39;D&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GAA/i){return &#39;E&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GAG/i){return &#39;E&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GGT/i){return &#39;G&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GGC/i){return &#39;G&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GGA/i){return &#39;G&#39;}<br />
&nbsp; &nbsp; elsif($codon =~ /GGG/i){return &#39;G&#39;}<br />
&nbsp; &nbsp; else{print STDERR &quot;Plz write among TCAG\n\n&quot;; exit;}<br />
&nbsp;&nbsp; &nbsp;}</p>

<p>for (my $i=0; $i &lt; (length($dna) - 2); $i += 3)&nbsp;<br />
&nbsp;&nbsp; &nbsp;{<br />
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;$codon = substr($dna,$i,3);<br />
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;$protein .= Codon_table($codon);<br />
&nbsp;&nbsp; &nbsp;}</p>

<p>print &quot;\n 2. DNA\n\n$dna\n\n 3. Protein\n\n$protein\n\n&quot;;</p>

<p>exit;<br />
&nbsp;</p>