s/$changefrom/qq{"$changeto"}/giee;

##</code><code>##

$changeto =~ s,(?<!\\)((?:\\\\)*)([\$\@\"]),$1\\$2,g;
s/$changefrom/qq{"$changeto"}/giee;