#!/usr/bin/perl

use 5.18.2;
use warnings;

use Data::Peek;
use Unicode::Normalize qw( normalize );
use Encode             qw( encode decode );
use charnames          qw(:full);

sub dp {
    my ($tag, $dta) = @_;
    my $dp = DPeek ($dta);
    printf "%-6s: %-52s", $tag, $dp =~ s{^(\S+)\K}{" " x (26 - length $1)}er;
    utf8::is_utf8 ($dta) and
        print join " + " => map { charnames::viacode (ord) } split // => $dta;
    say "";
    } # dp

$| = 1;
foreach my $bytes (
        "\xe1\xb8\xaf",
        "\xc3\xaf\xcc\x81",
        "\xc3\xad\xcc\x88",
        "\x69\xcc\x81\xcc\x88",
        "\x69\xcc\x88\xcc\x81",
        ) {
    my $u = decode ("utf-8", $bytes);
    dp ("Bytes", $bytes);
    dp ("UTF-8", $u);
    dp ("NF$_", normalize ($_, $u)) for qw( D C KD KC );
    say "";
    }