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