...or everything I know about obfu, I learned from
Erudil.
(Yes, I stole some elements from
my other JAPH, but they're not the important parts.)
This has been tested under ActiveState 5.8, Cygwin 5.8, and 5.6.1 under RH 9 so far.
#!/usr/bin/perl -w
use strict;
$|++;$_='$^X="42858384006578".
"798472698200486982760072656".
"775698200";;$~=substr($^X,-1,
(2>>1));;$^=(chr(substr($^X,2,
(2>>1)))x(substr($^X,-3,3)>>2)
);;;map{substr($:,$.++,1)=chr(
substr($^X,$_,2)+(2<<4))}(4,20
,32,44,40,6);map{foreach$"(0..
$~){do{$a=int(rand((substr($^X
,7,3)>>4)));;}while(substr($_,
$a,1)ne(chr((1<<2)+substr($^X,
0,2))));;;substr($_,$a,1)=chr(
substr($^X,$a*2,2)+(1<<5));;;}
s/\./ /g;;print;$~++;;;eval($:
.(\'$b,\'x3).substr($^X,-1,1).
\'.\'.(2>>1).substr($^X,-2,1))
;$_=$^;print;}map{$_=chr((1<<2
)+substr($^X,0,2))x(substr($^X,
23,3)>>3);}($^X=~/../g);';eval;
print(chr(substr($^X,3,1)*2));;
Update: Looks like I needed an extra line feed for some cases.