Select Code to Download

use HTML::FromText;

...
TEXT

print text2html($str, paras => 1);

<P>Foo is on this line,
and bar is in this paragraph.</P>
<P>Baz is in a new paragraph.</P>

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