Converting dna to protein using standard genetic code.

#!/usr/bin/perl
use strict;
my%std_genetic_code=("ATA"=>"ISO", "CTC"=>"LEU", "GTT"=> "VAL","TTT"=>"PHEN");
#PROCESS INPUT DATA
while($line=<DATA>)
{
print "line:$line";
chop();
@triplets = unpack("a4"*(lengthof($line)/3)"$line");
for each $codon(at triplets)
{
print("$std_genetic_code($codon)";
}
print"\n\n";
}
#what follows is input data
_END_
ATTATGCATAATGCCTTCTCGTTGTCGTATTTTTCATGAAATGCATCATACTTCTCGTTCTCAATCGGATATGTTTTTT;
~
~

Do you have a question?

Or comments or explanations?

Other than telling you the fact that your code doesn't compile, I have no idea what you want from us.

Could this be the T-Shirt for 'spring break'?