Yet another JAPH

[tedv]

I figured I should write a JAPH someday, so today was that day. Let me know what you think of it. This is my first attempt at obfuscated perl code.

$_=q,$Ju=$_;s/([\t_\W\d \a\n])/other($1)/ge;for $per(@l) {hack(s/$per/
+/)},;
@l=split /(?!..(?:...)*$)/,"Wordefgspy";sub hack {print$_,$/ unless$_[
+0]};
eval;sub other{$_[0]=~/(\s)/&&$1;}

-Ted

[t-man]

cool man, but how many times do I have to tell you to comment!!1

[tedv]

The only purpose of comments in a JAPH script is to confuse and delude the reader. :) If anyone is interested in an explanation, I can give one however.

-Ted