Select Code to Download

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