Help for this page
perl -e "print qq(1_000)"
perl -e "print "1_000""
perl -e "$_="1_000";$_++;print" perl -e "$_=qq{1_000};$_++;print"
$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s, $_^=q,$\^-]!,,print