$lines[0] =~ s/\s+/ /g;