$ perl -E 'say 1_000_000/1_000'
1000