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