#!/usr/bin/env perl
use v5.12;
use utf8;
use strict;
use autodie;
use warnings; 
use warnings qw< FATAL utf8 >;
use feature qw< unicode_strings >;
use open        qw< :std  :utf8   >;
## use charnames   qw< :full >;
# These are core modules:
use Carp                qw< carp croak confess cluck >;
use File::Basename      qw< basename >;
use Unicode::Normalize  qw< NFD NFC >;
$0 = basename($0);  # shorter messages
## $| = 1;
$SIG{__DIE__} = sub {
    confess "Uncaught exception: @_" unless $^S;
};
$SIG{__WARN__} = sub {
    if ($^S) { cluck   "Trapped warning: @_" } 
    else     { confess "Deadly warning: @_"  }
};
while (my $string = <>) {
    print NFC(uc(NFD($string)));
} 
END { 
    close STDOUT;
}