find2perl might give you some hints to how to do this in Perl.  Which will work on stupid systems like Windows which don't have "find".  (Well, the command "find" really means "fgrep", and "dir/b/s" kinda works like "find"....)

use File::Find;
find(
    sub {/\.jpe?g$/i and print "$File::Find::name\n"},
    @dirs,
);
[download]

perldoc File::Find But usually I'd do what all the other comments suggest, use "find", if I were on a non-Windows system.