#!perl -pla
for$o(grep/1/&/2/&/3/&/4/,9..$$){$i=$o,6*s/(?<!\))(?!\()/$F[-chop$i]/ge-eval or$a=s/\*/\xc3\x97/grfor@_=(<({-,+})\\*{(-),(+),\\*,-}>,qw!(++)* (*-)* +++ ++- /++ +--!)}$_=$a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).