Select Code to Download

$hash{$1} = $2
   while $data =~ /zone\s+"([^"]+)".+?masters\s+{[\s#\/]*([a-zA-Z0-9.-
+]+)[\s#\/;]*}/sg;