my @files =grep { /\.jpg$/i || /\.gif/i || /\.png/i || /\.bmp/i  || /\.jpeg/i} readdir(DIR);

##</code><code>##

my @files = grep { /\.(?:jpg|gif|png|bmp|jpeg)$/i } readdir(DIR);

##</code><code>##

   $file =~ m/(.[^.]+)$/;
   $ext = $1;