print join$/,unpack'w*',q"y\x81h\x82W\x83F\x845\x85$\x86\x13\x87\x02\x89:\x89P\x92\x11\x92'\x9ah\x9a~\xa3?\xa3U\xac\x16\xac,\xb4m\xb5\x03\xbdD\xbdZ\xc6\x1b\xe0!\xe07\x81\xb5*\x81\xb7\x08\x81\xb7\x1e\x82\x8c\x11\x82\x8do\x82\x8e\x05\x82\xe2x\x82\xe4V\x82\xe4l\x83\xb9_\x83\xbb=\x83\xbbS\x84\x90F\x84\x92$\x84\x92:\x84\xe7-\x84\xe9\x0b\x85\xbe\x14"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).