perl -e "print qq(1_000)"

##</code><code>##

perl -e "print "1_000""

##</code><code>##

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

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print