This is really my first JAPH: The last one, my first JAPH which was not in fact, technically a JAPH, wasn't a JAPH, merely obfuscated. errr...

I'm afraid it isn't hugely obfuscated but I am mildly happy with it. As always, all comments welcome.

#! /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";
[download]

I hope there are no typos: I'll be around tonight so if there are any problems, I'll rectify them. (I'm not allowed to network my laptop here at Uni :-| and the network is WinNT and I'm not allowed to install Perl Win32 :-( which is annoying.)

Elgon