$ perl -MO=Deparse -e '$x++'
++$x;