You've already been given some good ideas about using File::Find::Rule so I though I'd point out something else you could try to find file extensions. You can also use File::Basename with your existing code:

my ($name, $dir, $ext) = fileparse($filepath, '\..*');
[download]