Fun with Unicode

unicode

#! /usr/bin/perl -l

use strict;
use utf8;
use open qw( :encoding(UTF-8) :std );

use charnames qw( :full :short );

my $word = "no\N{LATIN SMALL LETTER E WITH DIAERESIS}l";
my $combine = "noe\N{COMBINING DIAERESIS}l";

print uc $word;
print uc $combine;
print $word eq $combine ? 'same' : 'different';

use Unicode::Normalize;
print NFD($word) eq NFD($combine) ? 'same' : 'different';

Produces

NOËL
NOËL
different
same