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