# somewhere in init code
my $descriptive_charclass_name = do {
    my $wide = "\x{0024}\x{1F45}";
    qr/[$widechars]/;
};

# ... later

s/($descriptive_charclass_name)/$delimiter/gm;