File::Find::Rule 

use File::Find::Rule;

my @files = File::Find::Rule->name('*.JPG')
                            ->file()
                            ->size('>2M');
                            ->in(@directory_list);