> $text =~ s/\n/<br>/g;

##</code><code>##

$text =~ s/\r//g;