Select Code to Download

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

# somewhere in init code
my $descriptive_charclass_name = do {
    my $wide = "\x{0024}\x{1F45}";
...
# ... later

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