use Unicode::Normalize;
my $lower_nfc = NFC(lc(NFD($string)));