#!/usr/bin/perl

use strict;
use Unicode::Normalize;

use open IN => ':encoding(utf8)';
binmode STDIN, ':encoding(utf8)';

while (<>) {
    $_ = NFKC( $_ );
    # now do whatever you want...
}

##</code><code>##

    eval "Encode::decode('utf8', \$_, FB_CROAK)";