if ( $line =~ /^zone\s+(\w+)\W+\w+\s*$/ ) {
		...
	}
	elsif ( $line =~ /^endoffile$/ ) {
		close $outfh;
		$outfh = undef;
	}