$replace = qq["$replace"];
    $content =~ s/$find/eval $replace/es;