$string =~ tr{/}{\};

##</code><code>##

$string = s{/}{\}g;