my @files = find(
   file =>
   name => qr/\.(jpe?g|gif|png|bmp)$/i ,
   in => $dir,
);