my $rule = File::Find::Rule->file->name("Eigene Dateien\$")->start( $s_dir );
 while ( my $dir = $rule->match ) {
     ...
 }