I followed graff's advice and all seems to be working well so far after breaking out a new file for each directory. I took one shortcut to speed up implementation. I use File::Find to do my traversal and there are certain directories I want to skip. I add in if ($File::Find::name =~ /$skip/){return;} in my &wanted. This works and though it's not output File::Find continues its' recursion into my undesired directory thus eating precious processing time.

I figure my only option is to not use File::Find, or is there a way around this?