$_=unpack'H*','\x88^M\xea\xae\xe9\x88\xbf\xae\xa5\xdd\xfc\x98{N\xc5\xe3\xeeJ\x98~*\xa0\x98n\x05\x04\x98`\xaa\x04\xa9\x86\xa3\xaf\xbe\x04\xf9\x86\xfa\xa5\xf0:\x98\x8f\xe5\xa0\xd9\x88\x7f\xfd\xdd\xf9\x88\x8c\x98\x88I\x88\x84\x9c\x88t\x88|\x9fL\xc8\x84\x88\xbeO\x95\xf3\xec\x86H~:\x96\xa2\xc8T\x86\xe3\xa9o.\x85HZ*\x97\x1c\x84\x85\x1a\x96\xa1\xa8HQ\xa9j\x1a\x84\x8a\x1a\x96\xa0\x84\x8e\x1a\x96\xf0\xe7G\xb0\xa9z\x0cd~\x0f\x98\xa1\xe6F\xa0\xd9\x85\xf1dj\x1d\x98o\xa3d[*\xf9\x88\xdd\xa5E\xad\xdf';y/a-f9/:,.";' /;s/\d/M x(5-$&).$"x($&-4)/ge;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).