Yes; but IMHO regex is not the optimal WTDI.

my %files;
@files{@jpeg} = ();

find( sub { push @foundfiles, $File::Find::name if exists $files{$_} }
+, @directories );

{
  my $outfile = "I:\\temp\\Outlist.txt";
  open OUT, ">> $outfile" or die "can't append to $outfile: $!";
  local $, = local $\ = "\n";
  print OUT @foundfiles;
  close OUT;
}
[download]