I want to replace one combination of text with another. For example

```
data test;
a='raja\ram{work}italic';
if index(a,'\') then b=tranwrd(a,'\','\\');
if index(a,'{') then b=tranwrd(a,'{','\{');
if index(a,'}') then b=tranwrd(a,'}','\}');
if index(upcase(a),'ITALIC') then b=tranwrd(a,substr(a,index(upcase(a),'ITALIC'),length('ITALIC')),'\i');
run;

```

Required Result: `b=raja\\ram\{work\}\i;`

These kind of combination I wanted to replace. I'm not interested to use a macro or FCMP or if else condition.

Is there any function to do all at once? I tried to use a Perl expression that also working for one at a time `b= prxchange('s/\\/\\\\/', -1, a)`