Try to look at module File::Find::Rule. I think it will help you to resolve your problem.

_ _ _ _ _ _
  M i c h a e l