$lines =~ s/\n\n/\n/gms; [download]
In reply to another problem with the blank line regex by amarceluk