Requires Acme::What, junk and the (yeah, I know it's cheating)...

use Acme::What;
use junk JElOQ3siZm9yY2UucG0ifT1fX0ZJTEVfXztvdXIkeDsqV0hBVD1zdW
       . J7cHJpbnQiJHgKIn07KmZvcmNlOjp0aGU9c3ViOmx2YWx1ZXskeH0K;

use the force;
the force = strong;
what is the force?

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Back to Obfuscated Code