@images = grep {
    -f && # only allow files, not directories
    /\.(png|gif|jpe?g|.....)$/i
} map { ... } readdir(DIR);