sidburn@sid:~$ perl -MO=Deparse -wle 'print 1_000, 0b010101'
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
print 1000, 21;
-e syntax OK