$_=$$&2?'\x01\x01 \x02\x02\x02':'\x01\x01\x00\x00\x01\x01 \x10$)-1"\x1d *6/<;\x0f\x0f\x1806 \x00 \x00 \x01\x00\x00 \x00\x01\x01 \x01\x07\x0c\x03\x03\x06\x0b \x0e\x0b\x0e\x0d\x0d\x0d \x01\x01\x01\x01\x01\x00\x01\x00';s/./ord($&).$"/eg;s/ $//mg;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).