実現自体は実は割と簡単で、1文字ずつ print すると良い
print chr length q q XXX... q xor print chr length q q YYY... q ...
XXX... には出力したい1文字目の文字数になるまで、適当に予約語を埋める。
例えば改行 (ASCIIコード10) を出したければ
perl -e 'print chr length q q goto die q'
length(" goto die ") == 10