while (my $line = <$lines>) {
  next unless $line =~ /\S/;  # <- add
  chomp $line;
  .
  .