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: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |