use Unicode::Normalize; my $str = "brûlée"; say length $str; say length NFD( $str );