use strict;
use warnings;

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

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

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

	my @files = grep -f, <"$dir/*">
	  or die "Problem getting filenames in $dir/: $!";

	local $/;

	for my $file (@files) {
		open my $fh, '<', $file or die $!;
		my $data = <$fh>;
		close $fh;

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

	return %hash;
}

##</code><code>##

print $data;
exit;