opendir D, "$directory" || die "Cant: $1"; my @list = grep /db/, readdir(D); closedir D;