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