Select Code to Download

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