use Compress'Zlib;$_=uncompress 'x\x9c\xa5T\x09\x12\xc3 \x08\xfc\x12\xab\x93\xf2\xff\x9fU9\x12\x04k;SL\xa2"rn\x003Q\xa7@\xac\xd3eK\x80}\xcc\x87\xf6t\xf9\x02\xfe\x85L\xd0]\xe7\xa01_\xc9\xc6?\xd9\xa0\xf3\xd9V\xdf\x8f\x94\xd5r\x9cO\xfe\xfcO\xed#\xaf\xf9gD&\x99\x9f\xefL\xe8(\x97U#\x14\xa7\x16\xa9\x9b\xeb\xd7\x14\x8f\xc7q3\xd6_\xfc\x82\xc2\x83\x914\xddc\xe8\x11]k$j\xa7\x8a+\xe7\x94\x11D\x17<\x08C\xcf\x82F\xaap\xc4\x94\xb8\xc5\xbct\xc8b\xc9\xd6\xee\x1c\xa2H\xa6\xe9\xae$\xcb\xd8Q\xec5\x06E?\xdd\xd5\x1c\xb8g\xa9T\x8b\xe8\x0c1T\x0f\xdb\xbapL\xb8\xe5\x99\x97\xa0\xb1I\x04\xfd\xb6S\xaa\xe8\x90i\xd9\xbf\xb1\x83\x9d=\xd7k|).\xc5\x14T\x9du\x17\xae\xf7 \x12\x19k#Rb\x98\xcd!LR\x88\xbb\x1c\x01\x0e\x87\xd6\xf4\x0be\x18`\x83\x094\xb7\xd1S\x1f\xf30\xd8\x10#\xa1\xb08\x9e\xfb\xd9\xeeo7\xb6&\x8c\x1e\xd4\xba\x1dol\xbb\x08\x17\xd6\x1b=\xac\x1eg';('Helo,Wrd'.'*'x$$)=~s%.%$a[$x>>8]|=v0 x($x&255).$&;$x+=(257,256,255,-1)[($d+=chop)&3]*($d&4?-1:1)%ger;$a[3]|='!';print y/\x00/ /r,$/for@a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).