open(FD,"+< named.conf");
$domain="domain.com";
while(<FD>) {
    if (/^zone \"$domain\" \{/ .. /\}\;/) {
        print;  #show me that config block
    }
}
close(FD);

##</code><code>##

open(FD,"+< named.conf");
$domain="domain.com";
while(<FD>) {
    if ($_ !~ /^zone \"$domain\" \{/ .. /\}\;/) {
        print;  #show me everything but what I asked for
 push (@outtext,$_); #put it away for later use
    }
}
close(FD);