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