You need to use double quotes to interpolate the character in $cgj:

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

or just include it directly in the cached regex.

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