Select Code to Download

perl -w -E "say hex(q{x})"
0

perl -w -E "say hex(q{t})"
Illegal hexadecimal digit 't' ignored at -e line 1.
0

sub hex2 {
    my $str = shift;
...
        die "hex2: No chars found after stripping leading 0x or x";
    }
}