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