I always thought that Japhs that had "just another perl hacker" or its ascii numbers were too obvious, so I tried to make one that didn't use pack,unpack,chr or the actual words.
sub LI{return "L"};(@S1,@DK)=(1,2,34);$BXY=sub{map{tr/ //}@_};sub yIJ{
+join"",@DK,@_};$GPYI=\&LI;print eval$_ for join "",q/'@S1,yIJ($1,\@!,
+\'8s@DK\',LI)'/,q/^'*&BXY($GPYI.`QIUTS`,*DG);#'/;