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