my @lines = split /\n/, $header, -1;