my @len = unpack "U*", $c->param('text'); # CodePoint-Array my $bytes = pack "U*", @len; # Zeichen wieder aus Codepoints printf "Text: %s, Length: %u\, len2: %u, len3: %u, Substr: %s\n", $c->param('text'), length $c->param('text'), scalar @len, length $bytes, substr $bytes, 0,1;