s/([\x{1F24}])/$delimiter/gm;

##</code><code>##

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