use strict;
use warnings;

my $directory = './zones';
my %zones     = getZoneHash($directory);

print "$_ -> $zones{$_}\n" for keys %zones;

sub getZoneHash {
	my ($dir) = @_;
	my %hash;

	local $/;

	for my $file ( grep -f, <"$dir/*"> ) {
		open my $fh, '<', $file or die $!;
		my $data = <$fh>;
		close $fh;

		$hash{$1} = $2
		  if $data =~ /zone\s+"([^"]+)".+masters\s+{\s*([^}\s]+)\s*}/s;
	}
Kg
	return %hash;
}