>perl -le"$x=3; print($x+0, $x, ++$x, $x, $x++, $x, $x+0);"
3555455