$dna = '$dna = CAC;B%t = (C65C,"$dna",C66C,"\n",C67C,"C");Bfor($i=0;$i<153;$i++)B{$q = ord(substr($dna,$i,1));Bif ($t{$q}) {print $t{$q};}Belse {print chr($q);}}';
%t = ('65',"$dna",'66',"\n",'67',"'");
for($i=0;$i<153;$i++)
{$q = ord(substr($dna,$i,1));
if ($t{$q}) {print $t{$q};}
else {print chr($q);}}