use strict;
use warnings;
use diagnostics;

my $dir = 'C:\Users\gemuendadm\Desktop\Regex Absatz Test';

opendir (DIR, $dir) or die $!;

while (my $file = readdir(dir)) 
{
if ( open my $in_fh, '<', $in_filename ) { # Datei zum Lesen öffnen

  if ( open my $out_fh, '>', "$in_filename.out" ) {  # Ausgabe-Datei zum Schreiben öffnen

    while (my $line = <$in_fh> ) { # eine Zeile einlesen
      $line =~ s/\x0A$//; # \n (LF, hex 0A) entfernen
      
      print $out_fh $line; # geänderte Zeichenkette speichern
    }

  }
  else {
    die "Kann Datei '$in_filename.out' nicht öffnen/schreiben!"; 
  }
}
else { 
  die "Kann Datei '$in_filename' nicht öffnen!"; 
}
}