$lines =~ s/\n+/\n/gs;