$\='-'x17 .$/;print;$a=($_>3&&'\x02\x0e\xce\xda').qw(n \x08\xd4 \x08n\xd4 \x02 n ht ;ht ;ht\xa1 FRn\x8a\x96 *FR\x8a\x96\xb2)[$_-1],$_=0 x255,$a=~s/./substr($_,ord$&)|=unpack b35,'\x01\x00\x07\x00\x04'/eg,s/.{17}/$& /g,y/01/ */,print for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).