$text =~ s/(\n*)\n/$1/g;