$replace = quotemeta $replace;
$replace =~ s/\\\\([1-9][0-9]*)/\$$1/g;
$string    =~ s/$find/qq{"$replace"}/gee;