$o=(" "x16 .Q)x19;@d=unpack"C*","A\xb8\xdf\x9d\xb8t\x9aGCEDFAc\x85\x02\x01";for($\,<>){$l+=65-pop@d;s#.#substr$o,$l+=17*!$f+$f,1,$&#eg;$f^=1}$o=~s/ *Q/
/g;print$o
Note that non-ascii characters in the above source code will be escaped (such as \x9f).