perl -wle 'print 1_000'
>1000