Select Code to Download

sub truncate_utf8 {
   my ($utf8, $len) = @_;
   $len += 0;  # Make sure $len is a number.
   return $utf8 =~ s/^.{0,$len}\K(?![\x80-\xBF]).*//sr;
}

sub truncate_utf8 {
   my ($utf8, $len) = @_;
...
   $next = chop($utf8) while (ord($next) & 0xC0) == 0x80;
   return $utf8;
}