http://www.perlmonks.org?node_id=824938

perl -E '@O=("\x61\x6e\x6f\x74\x68\x65\x72","\x50\x65\x72\x6c","\x68\x61\x63\x6b\x65\x72\x2c\xa");$J0="\x4a\x75\x73\x74\x20";say"$J0@O"'