use 5.014;
use charnames ':full';

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