perl -e "print qq(1_000)"