#!/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.