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