use CSU; # Character Semantics for UTF-8
use strict;
use warnings;

my $csu = CSU->new('äöü');
print $csu->substr(0,1);

# weitere String-Methoden sind vorerst length und uc