#!/usr/bin/perl -w
open DATA, "*.txt";
@file=<DATA>;
while (@file) {
  if (/Hostname\:\s(\S+)/) {
    $hostname=$1;
    print "$hostname\n"
  }
  if (/\:$/) {
    print "# $hostname \n $_";
  }
}