while ((my $key, my $value) = each %daten){
        s/\b$key\b/$value/i;
    }