File::Finder->eval(sub { $File::Find::name =~ tr././. > 3 })-> ...;