$str =~ s-\\-\\\\-g; # Change each \ into \\
... /...$str.../ ...