File::Find::Rule 

use File::Find::Rule;

my $rule  = File::Find::Rule->name('*.JPG');
my @files = $rule->in(@directory_list);