use utf8;
my $s = 'äöüß';

say length $s; # 4

use bytes;
say length $s; # 8

no bytes;
say length $s; # 4