If all the files are in your current directory this should work. Are there any recursive directories that need to be searched? If you need to search a specific directory, just change the "." to whatever directory you want. Hope this helps.

#opening dir n' grabbing files
opendir(DIR, ".");
my @files = grep(/^.+?index\.ccr$/,readdir(DIR));
closedir(DIR);

#opening file for writing and outputting to indexlist.ccr
open(FILE, ">indexlist.ccr")
foreach(@files) {
  print FILE $_ . "\n";
}
close(FILE);
[download]