Search Results

You get the additional rows when you skip the '/^\s*$/' line.

The line /^\s*$/ means any line that just contains white spaces or empty

If you notice your input file the format is as follows...

while(my $line = <FILE>) {
chomp $line;
if ($line){
if ($line =~ m/HOSTNAME\ (.*)/){
$hostname = $1;
}
...