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