hostname1.com
Gateway FAIL
hostname2.com
Gateway FAIL

##</code><code>##

print $line, "\n\n";

##</code><code>##

print $line, "\n"; 

##</code><code>##

my $last;
while (my $line = <$fh>) {
    next unless $line =~ /\S/; 
    next if defined $last and $line eq $last;
    print $line, "\n";
    $last = $line;
}