use bytes;
my $s = "\x{100}";
print length $s;
{
    no bytes;
    print length $s;
}
print length $s;

2
1
2