This JAPH (my first even!) was inspired by one of merlyn's origonals

#!/usr/bin/perl -w
use strict;($~=q(rekcah$lPtonsuJ))=~y[-#.$][.., ];$_=
qw($aa%^"^$aag^x^%^$^g^@^naagg^k^%^n^gi^g=aagk);
y-gi"xn=k@%$^a-1278934560,.-;print+(reverse((split
(//,$~))[eval]));
[download]

-- Dave