$text =~ tr/\r//d;

##</code><code>##

$text =~ s/^ +| +$//gm;

##</code><code>##

$text =~ s/^\n+|\n+$//g;
$text =~ s/\n{3,}/\n\n/g;