$Text::Wrap::columns = '40';
print wrap("","",@CONTENT);

##</code><code>##

$Text::Wrap::columns = '40';
push(@YO, wrap("","",@CONTENT));
foreach (@YO) {
	$_ =~ s/(\s)?\n\s/\n/g;
	print;
}