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