...

sub wanted {
     unless ($File::Find::dir =~ /subdir_name/ {
            #do something
     }
}