open F, "named.conf.local" or die "$!"; while() { chomp; s/^[ \t]*file "db\.(.*)";/$1/ or next; next if /db.cache/; push @lines, $_; } close F; #### opendir D, "$directory" || die "Cant: $1"; my @list = grep /db/, readdir(D); closedir D;