$text =~ s/(?<=\b)\n(?=\n\b)//g;