#!/usr/bin/perl -CIO
#
# or /usr/bin/perl or wherever your OS keeps it...
use charnames ':full';
use Unicode::Normalize;
use open ':encoding(utf8)';
binmode(STDIN, ":encoding(utf-8)");
binmode(STDOUT,":utf8");
#http://search.cpan.org/~sadahiro/Unicode-Normalize-1.18/Normalize.pm
#
#
while(<>) {
    chomp;
    my $line = NFKC($_);
    print "$line\n";
    @x=split("",$line);
    foreach(@x) {
	printf("|%s| 0x%04X \"%s\"", $_, ord($_), charnames::viacode(ord($_)));
	printf("\n");
    }
}