#!perl -p
y/?/+/;s/\+/-/||s/-/+/ while eval s/=/-/r