my %Replacement = {
   q/"-/ => q/"Ä/,
...
);
...
while ...
    s/($rere)/$Replacement{$1}/g;
...