use File::Find; 
use strict;
use warnings
my @exts = qw(.html .jpg);
my $search_root = 'C:\\temp\\';

# Build a Regex

my $rexstr=join'|',map {quotemeta $_} @exts; 
my $rex=qr/(?:$rexstr)$/i;

# Directory to ignore
my $dir = qr/pics/

find({ wanted =>sub{print "Found a match: $_\n" if (/$rex/);} , 
   no_chdir => 1 }, $search_root);