#!perl -apl
sub f{vec qw(I\xd0 \x80\xe8 \x8d\x04\x8c$\x8f\x16J.\x9e\x16\x8dP\x8dPl-\x8d\x14Z.\x16\x9eOJ\x9f\x16\x16\x9e\x16\x9e\x8d\x04\x8d\x15\x8c$5\x8c\x8d\x14\x1eZ)[$$%3],$b++,2}$v=f;@G=qw(+ - \xc3\x97 /);$_="(-1FGF)>1G(>2F)<1GF)>2";s/(\W)(..)/"$v$2?\$1:''"/gee;s/(\w)/$$1[f]/g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).