use File::Find::Rule;
  # find all the subdirectories of a given directory
  my ($subdir) = File::Find::Rule->directory->in( $s_dir )->name("$a_dir\$");

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