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

opendir (my $dh, $dir) || die "can't opendir $dir: $!";

while (my $in_filename = readdir($dh)) 
{
  if ( $in_filename =~ /^\./ && -f "$dir/$in_filename") { # wenn Dateiname kein . oder .. ist

     #### hier den Code zum Bearbeiten der Datenzeilen

  }
}
closedir $dh  || die "can't closedir $dir: $!";