this has almost certainly been done before, but i was playing around with s###eee's.
al
here's the result:
enjoy.@d=sort{rand>.5}(b..z,A..Z);push@d,shift@d while($d[-1]ne"j");unshift@ +d,$_="a" ;while($#d>1){$_=shift@d;${$_}="\$$d[1]"}$j="print 'Just another Perl +hacker,\n' ";s#.#${$&}#eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
al
Update: I should perhaps have searched. seems Book was way ahead of me. oh well. (it's new to me :) ).
++Book (5 years later!) and ++cog for pointing it out.
Back to
Obfuscated Code