$string =~ s/$regex/eval "\"$replace\""/e;