my $foo = 'hässlichblöd';
chop $foo while (length(encode("utf-8", $foo)) > 10);