local $/=undef;
open(F, "named.conf") || die $!;
my $zonedata=<F>;
close F;
if ($zonedata=~/(zone\s+"$domain"\s+\{\r?\n(.*?)\r?\n(.*?)\r?\n(\s+)?\};(\r?\n)+)/) {
   print "Got a match on $1\n";
   $zonedata=~s/$1//;
   #write out..
   }