$Doc =~ tr/\//\\/;

##</code><code>##

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