Why don't you change your File::Find regex to something like /com\d+/. Or, if you know the exact names of the files beforehand, simply fill an array with the filenames and open them. No need for File::Find at all.