Datei einlesen und Zeileumbruch entfernen

[Glen]

Hi,
ich hab meinen Code jetzt mal so geändert. Funzt leider noch nicht so ganz. Was mache ich denn 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*$/)
 {
  open(DATEI, "<$datei_dir/$datei") || die "Fehler bei open(< $datei): $!\n";
   my @zeile =<DATEI>;
   close(DATEI);

# Manipulieren
   my $datei = join @zeile
   $datei =~ s/\n/\t/g;

# Schreiben
   open(DATEI,">$datei") || die $! "chmod vergessen?";
   print DATEI "$datei";
   close(DATEI);

}
close(DIR);