perl -E "say for grep{eval $_ == 100} glob join '{+,-,}',1..9"