fun with use subs;
Irrelevant
created: 2006-01-31 13:35:46
perlmonks
prlmnks

There's a couple of obfus in here which I'm really quite proud of.

use subs map{uc,lc}"a".."z";AUTOLOAD{print+map{/j|p/?uc:lc}${(caller!1)[3]}=~
/.$/g;v32}(S.t)->(U\j),n(A),(e,l~R)->(p!r->(E&O|H~t)),(E,r,q)((.))->(k\H,a^c)

perlmonks.org content © perlmonks.org and Irrelevant

prlmnks.org © 2006 edmund von der burg (eccles & toad)

v 0.03