"ls /usr/local/farms/*/*/input/*$corp*" is not recursive. File::Find isn't incredibly slow if there aren't any subdirectories under /usr/local/farms that aren't matched by /usr/local/farms/*/*/input, but glob is likely to be faster than File::Find.