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