$_ = "t?e\\\\xt\\\\* with escapes\\*\n"; 
s/\\\\/\\s/g, s/(?<!\\)\?/#/g, s/(?<!\\)\*/?/g, s/\\(\W)/$1/g, s/\\s/\\/g; 
print;

##</code><code>##

t#e\xt\? with escapes*

##</code><code>##

$_ = "t?e\\\\xt\\\\* with escapes\\*\n"; 
s/\\\\/\\s/g, s/\\\?/\\S/g, s/\\\*/\\T/g, s/\?/#/g, s/\*/?/g, s/\\(\W)/$1/g, s/\\S/?/g, s/\\T/\*/g, s/\\s/\\/g; 
print;