my %hostdata;
{
   $/ = "\x0d\x0a\x0d\x0a";  # record separator is now a blank line

   while (<>) {   # $_ now contains one whole ipconfig output
      next unless ( /Host Name.*?:\s*(.*)/ );
      my $host = $1;
      @{$hostdata{$host}{dns}} = ( /\s(\d+\.\d+\.\d+\.\d+)\s/g );
      ( $hostdata{$host}{typ} ) = ( /Node Type.*?:\s*(.*)/ );
   }
}

# Now, keys %hostdata gives the list of host names from
# all the ipconfig runs, and $hostdata{"hostname"} contains 
# the dns and node type info for each host.

for ( sort keys %hostdata ) {
   print join "\n", $_, @{$hostdata{$_}{dns}}, $hostdata{$_}{typ}, "\n";
}