$ perl -E 'say(7+1+1+37*7)'
268