Datei einlesen und Zeileumbruch entfernen

[Glen]

Hallo Christian,
jetzt sieht mein Code so aus. Etwas stimmt aber leider immer noch nicht. Was mache ich denn jetzt noch falsch?
Gruß
Glen

#!/usr/local/bin/perl

use strict;

HTML-Dateien öffnen, ändern und speichern

my $datei_dir ="/data/daten/ib_test";
my $dateineu_dir ="/data/daten/ib_test/Dateien_neu";

Einlesen

opendir(DIR, $datei_dir) or die "Fehler bei opendir: $!\n";
while(my $datei=readdir(DIR))
{
 print "$datei\n";
 if($datei=~m/.+.html*$/)
 {
  local $/;
   open DATEI, '<',"$datei_dir/$datei" or die "Fehler bei open(< $datei): $!\n";
   my $datei = <DATEI>
   close DATEI;

$datei =~ s/\015\012|\015|\012/\t/g;

open DATEI,'>',"$datei_dir/$datei" or die "$datei: $!";
   print DATEI $datei;
   close DATEI;
 }
}
close(DIR);