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