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