perl -e "$_="1_000";$_++;print"
perl -e "$_=qq{1_000};$_++;print"