Remember that you are substituting the entire matched pattern with nothing. Try this:

$text=~s/([^\n])\n([^\n])/$1$2/g;
[download]

---- Coyote (aka: Rich Anderson)