#!perl -lpa $_=unpack'H*','\xdd\x8f .\xbd*\xf4\xea\xd9\xf3\xa1\xeb\xd3\xaf^\xeb\xddJ\xf6\xeb\xd1\xaf~\xadZ\xf7\xeb\xd0\xafn\xec\xda\x9b*\x8b>\xa4\xb0\xa5\xb1';$_+=y#a-f#-*/()=#/s/\d/\$F[$&]/g<eval
Note that non-ascii characters in the above source code will be escaped (such as \x9f).