$ perl -E 'say 1_6'
16
$ perl -E 'say 0x1_0'
16
$ perl -E 'say 02_0'
16
$ perl -E 'say 0b1_00_00'
16