that code works for me!

find({ wanted =>sub{ if (! ($File::Find::dir =~ /$dir/)) {
   print "Found a match: $_\n" if (/$rex/);}} , 
   no_chdir => 1 }, $search_root);
[download]

I'm using $File::Find::dir to get the actual directory name. If it matches the $dir regex the directory is ignored.