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