use Compress::Zlib;print uncompress"x\x9c\x8b\x8e\xe5\x8a\x8e\x85\@ \x83\x8b+\x1a\x89\xaf\xa0\x80)\x82]\x0c\" &\xd1t\xa3\x8b\xc1\xf4#q\xc1L.\xb8\x1e\x14\xabQ\xc5p\x89b\x88\xc3M\x06\x00\xcc\xaf7K"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).