use Compress::Zlib;print+("13+12+12-13","(1+1+1)\xc3\x978",inflateInit->inflate($m='x\x9cU\x8f\xd1\x0d\xc40\x08C\xff3\x09\x15B\x87\xa9\x9a&\x93v\xa0.v\x18\xa4\x93\xee\'\xc2@\xec\x07B\xe1
\xc5\x10\xe4\x0b\x8d\xe3}(\xb2\xcfR\xe0\xb6\x8f!)S\xad\x9e\xb9]).\xc3\xc0\x99k\xba\x0d^\xe5\xa9\x8b\xa5LNg9\x95\x91"w\xe5\xeeV\xbcO0\xcdV)C\xaa\xbb\xec+\xa5F\xf4\x97\x0c\xa0\x8a\x04\xf8-\xfe}kb\xc2W\xb8U
\xea\xa2>c\x7f6\xa1H\xd7\x18\xdex\xc6\xb4i\xf3\x0bd9;\xb2'))[$$%3]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).