39:         $text =~ s/\r//g;
40:         $text =~ s/(?<![\n\r])\n(?![\r\n])/<br \/>/g;
41:         $text =~ s/[\n\r]+(.*)[\n\r]+/\n<p>$1<\/p>\n/g;