$ perl -e 'print 1-3+2'
0