my $doc = 'This /and/ that.';

$doc =~ s!/!\\!g;
print $doc;

##</code><code>##

This \and\ that.