> perl -E "say ((1+1) * (1+1) * (1+1));"
8