perl -E '
    use Scalar::Util "looks_like_number";

    for (1, 0b10, 0o10, 0x10) {
        say "$_: ", looks_like_number($_) ? 1 : 0
    }
'
1: 1
2: 1
8: 1
16: 1