That is fixable though with a lookahead:

s/([^\n])\n(?!\n)/$1/g;
[download]

Or the probably faster lookbehind:

s/(?<!\n)\n([^\n])/$1/g;
[download]

UPDATE
chipmunk noticed a typo. I had not closed the second match. Oops.