my $cgj = "\N{COMBINING GRAPHEME JOINER}";
my $cgj_re = qr/$cgj/xms;