@ergebnis = map {$zeichen =~ s/$_/$tausche{$_}/g} keys %tausche;