#! /usr/bin/perl -w
use strict;

my @zxa; my $zax = ' aac aaa ata tac gtt taa aaa aat 
ggg ggt taa gca  gac gtg aaa cag gac gtg gga aaa agg
ctc ctt  gct gac  gtg aag ';;$zax =~ s/\s//g;;$zax=~
tr/acgt/0123/;;;my $xza;;while ($zax =~ s/^(...)//){
$xza = $1;;push @zxa, $xza;}my $ixz;;my $axz;foreach 
$zax(@zxa){$axz = 0;;; for ($ixz=2;$ixz >=0; --$ixz)
{$zax =~ s/^(.)//;$axz+= $1*(4**$ixz);}$zax = $axz;
}foreach $xza(@zxa){if ($xza == 0){$xza+=32;;;}elsif 
($xza == 1){$xza += 44;}elsif ($xza == 2){$xza+= 44;
}elsif ($xza >=3 && $xza <=28){$xza+=62;}elsif ($xza
>=29 && $xza <=54){$xza += 68;}}@zxa = map chr, @zxa
;;print "\n";;print join "",@zxa;print "\n\n";