my $regex = join '|', map quotemeta, keys %tausche;
$zeichen =~ s/($regex)/$tausche{$1}/g;