${chr(23)} = $^W. Same as $foo = ${foo}.

D'oh. I theoretically should have known that, I just forgot about the way unix handles bucky bits. (I come from the DOS world, where holding Ctrl causes the Ctrl bit to be set in the KSB, and pressing W causes the character W to be sent on hardware interrupt 9, and it is also possible to type in character 23 (Alt+023 on the keypad), which is different and will usually have a different effect. I've been using Linux for a while now, but I haven't done any lowlevel assembly-language stuff, so I only occasionally brush into this, and it hasn't firmly taken root in my brain yet.)

---

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}
[download]