use Compress::Zlib;print uncompress<DATA>;\x0d __DATA__\x0d x\x9c}\x91Y\x0e\x00!\x08C\xff\xdf)Hz\xff;\x8e\x8a\x0e\xe2\xa61Edk\x95\xde\x0b\xd9s#\x99\xddOI/p;\xd4\x0eV\xad\x03\xb6\xce\xed\xb2#\x1e\xe6]2\xd2-\xdb\x90\xc1\xc9\x86g\xe5\xf8?,\xdc"!q\x8a\xf0\x99\xcb\\x1d\xa5\xc0<{\x04\xb2x\xa6Yo\xff\xc0K\xe7\xa4+g\xdd\xd8u!\xd7&j\xe1^\xc4\x07\xfe\xe0F\x1a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).