| hand waving here.

while(<$fd>){
      
      next if $_ =~ m/^hostname /;
      print $_;
      $tot2++;
}
$tot++