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