find (sub {
       #skip directories which begin with 1 
       if (-d && $_ =~ /^1.*$/) {
                                $File::Find::prune = 1;
                                return;
                                }
 
#do more stuff here
..........
............
..........
          
}