Select Code to Download

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

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

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