c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $n = 100_010;
 my $b = qq{0b$n};
 dd $n, $b;
"
(100010, "0b100010")