>perl -wE "$i=1; say $i + ($i+=1)"
4