$text =~ s{DESCRIPTION(.*?)ENDDESCRIPTION}
		  {"DESCRIPTION\n" . join(' ', split("\n",($1))) . "\nENDDESCRIPTION"}ges;