Datei einlesen und Zeileumbruch entfernen

[Struppi]

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;

Naja, hier sind ein paar viele "$datei"s vorhanden.

Struppi.