($re='s\\foo~.bar\\foobar\\') =~ tr/\\~/~\\/; # ~ for \
eval $re;