File::Find will assist in a recursive search over a directory tree. Your sub wanted will need to open each ordinary file and look for the match m/ORA/ in its content. If found, the filename can be pushed onto an array, or whatever.