{
  my $temp = "\x{0024}\x{1F45}";
  s/([$temp])/$delimiter/gm;
}

##</code><code>##

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

# ... later

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