>perl -le "$_=1; ($_+=2)+=3; print $_"
6