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

##</code><code>##

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