$lines =~ s/\n\n/\n/gms;