print+(AA..ZZ)[($c+=ord)/2],$c%2?$":$/for"\x01\x02\x04\x02\x04\x02\x02\x06\x02\x02\x08\x02\x02\x06\x02\x01\x05\x08\x08\x0c\x13A\x13\x1f\x04\x04\x08\x02\x02\x08\x02\x02\x07\x07\x07H\x19\x08\x08\x08\x03\x1f\x04\x10 \x01*\x19\x0f%\x10\x0b\x19\x08\x08\x08\x04\x0c\x07\x05\x08\x14\x0b\x13\x02\x02\x04\x02\x08\x02\x04\x04\x02\x08\x02\x01\x05\x08\x074,;\x02\x0b\x19\x10\x0b' \x02\x04\x06\x01K\x13)\x17\x0d\x08\x13\x18"=~/./sg
Note that non-ascii characters in the above source code will be escaped (such as \x9f).