#!/usr/bin/perl
use warnings;
use strict;

use Unicode::Normalize qw{ normalize };

my $char = "\N{LATIN SMALL LETTER U WITH DIAERESIS}";
binmode *STDOUT, ':encoding(UTF-8)';
print normalize($_, $char), ' ' for qw( D C );

##</code><code>##

00000000: 75cc 8820 c3bc 20                        u.. ..