my $directory="/Perl/BugFiles"; opendir(RDIR, $directory) or die "das Verzeichnis konnte nicht geƶffnet werden"; my @fileList= grep(!/^\.?$/, readdir(RDIR)); close(RDIR); foreach $file(@fileList) { open (WRITEFILE, ">/Perl/ExtractedData/data.txt"); open(READFILE, ") { if($row=~/