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

##</code><code>##

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