The following will handle decimal, binary, octal, and hex
    in the standard Perl or C notation:

        $val = oct($val) if $val =~ /^0/;