Corret about the /i thing.

Also, instead of filtering out using grep, you can just glob the files that you are looking for by:

    foreach my $thumbFile (glob('*.TMB')) {...}
[download]

(I left the core like the original question, just to make it easy for the guy/gal in the original post)