find(\&wanted,$dir);

sub wanted{
   my $file = $File::Find::name;
   my (@fileinfos) = split(/[\/\\]/,$file); # besser File::Basename verwenden
   my $filename = $fileinfos[-1]; # hole Dateinamen
   if($filename =~ /\s/){ # wenn Leerzeichen vorkommen
      $filename =~ s/\s//g; # lösche Leerzeichen
      pop @fileinfos;
      my $newname = join('/',@fileinfos).'/'.$filename;
      rename $file, $newname;
      $file = $newname;
   }
   my $flag = -f $file ? 'f' : 'd';
   my $time = (stat($file))[9];

   push(@files,$file.','.$time.','.$flag);
}