$ cat /tmp/p
#!/usr/bin/perl -wl

my $s = "\x{100}";

print length $s;
{
    use bytes;
    print length $s;
}
print length $s;

$ perl588 /tmp/p
1
2
1
$