#!perl

use strict;
use warnings;

use open qw( :encoding(UTF-8) :std );
use charnames qw( :full );
use Unicode::Normalize;

sub length_in_grapheme_clusters {
    my $length;
    $length++ while $_[0] =~ m/\X/g;
    return $length;
};

my $invented_character
    = "\N{LATIN SMALL LETTER M}"
    . "\N{COMBINING DIAERESIS}"
    . "\N{COMBINING CEDILLA}";

my $invented_character_NFC
    = NFC($invented_character);

my $length_of_invented_character_in_code_points
    = length $invented_character;

my $length_of_invented_character_NFC_in_code_points
    = length $invented_character_NFC;

my $length_of_invented_character_in_grapheme_clusters
    = length_in_grapheme_clusters($invented_character);

my $length_of_invented_character_NFC_in_grapheme_clusters
    = length_in_grapheme_clusters($invented_character_NFC);

print "$invented_character\n";
print "$length_of_invented_character_in_code_points\n";
print "$length_of_invented_character_NFC_in_code_points\n";
print "$length_of_invented_character_in_grapheme_clusters\n";
print "$length_of_invented_character_NFC_in_grapheme_clusters\n";

exit 0;