You could have a look at $File::Find::dir, which gives the directory where $_ is found; there you can get the depth by counting the number of parts after doing a split using the seperator (/).