s[/][\\/]g for $lhs, $rhs;
eval "s/$lhs/$rhs/";

##</code><code>##

$rhs =~ s["][\\"]g;
$rhs = q["$rhs"];
s/$lhs/eval $rhs/e;