open (UX, "$win_file") or die print "Konnte Unix- File: $ux_file nicht oeffnen!!!:";
                              open (TMP, ">tmp.txt") or die ("kann tmp.txt nicht erstellen\n");          # temoräres Textfile erstellen
                                 while ($org = <UX>){
                                   $org=~ s/\r?$vonText/$zuText/g;
                                    print TMP $org;
                                  }   
                                  
                              close UX;
                            close TMP;
                            unlink "$win_file";
                            rename("tmp.txt","$win_file") or die $!;

$org=~ s/\r?\Q$vonText\E/$zuText/g;