Due to your proper punctuation, grammar, spelling and capitalization, I have to assume you're not an idiot.

Therefore, I'd have to assume that you bit this from somewhere, and didn't find it in anything resembling production Perl code.

I'm fluent in numerous languages, and believe me, I've seen more disturbing and troublesome production code in other languages I know that are far harder to read than that.

My very first real obfu from many years ago. I admit, all of the techniques, variances and oddities used came from my experience in writing production-worthy code at the time that resembled what I was learning to achieve. Very basic obfu, but as others have stated, obfuscated Perl code can easily be expanded to an understandable nature using perl and some basic, standard extensions (modules), so your attempt at inflaming others is as obtuse as it is ridiculous. Nice troll though!

use 5.10.0;
$p=japh;push@a,w();$s=j4;sub n{"8fbac6c6e252"};unshift@a,
"b4d6c7ea52a7";$k=crypt($s,$p);$o="aeafa7cfdbd58c";@h=
map{sprintf"%x",ord($_)}split//,$k;push@a,$o;$a[3]=pop@a;
$a[2]=n();sub w{"bcb3d8dec8dd"}$x.=$_ for@a;@b=($x=~m/..?/g); 
push@z,@h until @z>@b;for(@b){push@japh,hex($_)-hex($z
[$n]);$n++;}say map{chr$_}@japh;
[download]