http://www.moserware.com/2009/09/stick-figure-guide-to-advanced.html

http://www.moserware.com/2009/09/stick-figure-guide-to-advanced.html
--
map{ map{tr|10|# |;print} split//,sprintf"%.8b\n",$_}
unpack'C*',unpack'u*',"5`#8<3'X`'#8^-@`<-CPP`#8V/C8`"