Select Code to Download

my $file = do { local $/; <$filehandle> };
while($file =~ / define \s+ host \s* { (.*?) } \s* /gsx) {
   my ($hostname) = $1 =~ /host_name\s+(\S+)/;
   ...
}