My first try. As usual comments etc appreciated.
Assuming saved as japh.pl

Usage: japh.pl
or japh "string" "another STRING" ...
where parameters should contain ('A'-'Z','a'-'z' or ' ')
e.g. perl japh.pl "we apologise for" "any inconvenience"

#!/usr/bin/perl my($o)=('999 120420 122420422 422 122 494949333491 4994744941 20420120420 522 333 494 494 494 091 091 022 999 424 425499494429 42949342494 994945949949 440 449 442149442190 994949409 149498997990 999 949 442 102 242 142 249 902449 494 901 949 043 349 449402 149 902 849 022 694 9021979474190949220');$o=~s/\s+//gs;$o=~y!0-9!\\/\-_|<>VX !; for$ii(($#ARGV>=0)?@ARGV:('*534@!./4(%2','0%2,@(!#+%2')){my( $m,$b,$t)=("\n","\n","\n\n");for(split//,$ii){my$d=(ord($_)& 31)*3;$t.=substr($o,$d,3).chr(32);$m.=substr($o,$d+81,3).chr (32);$b.=substr($o,$d+162,3).chr(hex(20));}print"$t$m$b\n";}

Replies are listed 'Best First'.
Re: YA(JAPH)
by Segfault (Scribe) on Nov 01, 2002 at 19:45 UTC
    I've seen a lot of JAPH/obfuscated scripts, but this is definitely one of the cooler ones I've encountered. :) Amongst a sea of scripts that do nothing but print out "JAPH!" on the screen, this one stands out nicely. Great job!
Re: YA(JAPH)
by submersible_toaster (Chaplain) on Nov 04, 2002 at 06:36 UTC
    totally ++ , what a great mutator.
Re: YA(JAPH)
by Anonymous Monk on Nov 04, 2002 at 19:47 UTC
    ./japh.pl MORJESTA!!! |./japh.pl
Re: YA(JAPH)
by Anonymous Monk on Nov 08, 2002 at 03:06 UTC
    Very impressive!