open F, "named.conf.local" or die "$!";
while(<F>) {
  chomp;
  s/^[ \t]*file "db\.(.*)";/$1/ or next;
  next if /db.cache/;
  push @lines, $_;
}
close F;