Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Cross JaPh?

by Albannach (Monsignor)
on Apr 27, 2001 at 18:12 UTC ( [id://76098] : obfuscated . print w/replies, xml ) Need Help??

It's only barely obfuscated, and it isn't really producing JaPh, but after hanging out here for 6 months I thought I ought to at least give it a try. At least it does pass strict and warnings.
$_='x$w JXxwu Xhxsw PXa n&oth #e %rXcx x-rXkx x%l<X eX^rX ,@';s {\W|$/} {}ig;$_ .=',';s <[w-z]> { ' ' x (ord($&) -0x76) }ge;s <X>{$/}ge; print;

--
I'd like to be able to assign to an luser