#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
use Unicode::Normalize qw{ NFKD NFKC };
say $^O;
my $letter = "\N{LATIN SMALL LETTER A WITH ACUTE}";
open my $out, '>', NFKD($letter) or die "Open: $!";
unlink NFKC($letter) or warn "Warn unlink: $!";
unlink NFKD($letter) or die "Unlink: $!";
####
linux
Warn unlink: No such file or directory at ./script.pl line 13.
##
##
darwin
Unlink: No such file or directory at ./script.pl line 14.