Select Code to Download

 
my $key = $1;

 
my $key = NFD($1); # or NFC, or even NFKD/NFKC

foreach my $letter (@letters) {
    my $norm_letter = NFD($letter); 
...
    print join " ", @features;
    print "\n";
}

use Unicode::Normalize;

...
        print "\n";
    }
}