Help for this page
s/([\x{1F24}])/$delimiter/gm;
{ my($temp); ... $temp2 = "\x{1F45}"; s/([$temp1,$temp2])/$delimiter/gm; }