# Jetzt nehmen wir mal die Bytes , C3 A4 für das Zeichen 'ä'
# beachte Schablone "C", es werden bytes erzeugt
my $str = pack "C*", 0xC3, 0xA4;
# Es ist zu erwarten, das Perl-intern die byte-semantic gilt
print length($str), "\n"; # Und ja: Es stimmt ;)