Select Code to Download

use utf8 ();
sub verify_upgraded_length {
  my($s) = @_;
...
  utf8::downgrade($d);  # dies if downgrade not possible
  return length($s) == length($d);
}