$str = Unicode::Normalize::NFKD($str); $str =~ s/\p{NonspacingMark}//g;