while (<JPG>)
{
   chomp;
   # save so F::F doesn't overwrite
   my $extension = qr/$_/;
   find( sub { push @foundfiles, $File::Find::name if /$extension/; }, @directories );
}