$ perl -e'$x=3; CORE::say for $x, $x++'
4
3