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
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.
In reply to eeeeeeeeeeeeeeeee! by teamster_jr
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |