elsif ($line =~ /\S/) {
      push (@arr, "$line\n");
      next;
  }