Also note that oct mimics hex for raw octal numeric
strings and for all other common, non-decimal-base numeric strings given the
appropriate prefix.
Win8 Strawberry 5.8.9.5 (32) Thu 01/14/2021 12:26:05
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings
for my $s (qw(376 37_6 0376 0_376 0xfe 0xf_e 0b11111110 0b1111_1110))
+{
print "'$s' ";
die 'Ooops...' unless oct $s == 254;
}
print "\n";
print "all ok \n";
^Z
'376' '37_6' '0376' '0_376' '0xfe' '0xf_e' '0b11111110' '0b1111_1110'
all ok
Give a man a fish: <%-{-{-{-<