my $str = TEXT;
Foo is on this line,
       and bar is in this paragraph.

       Baz is in a new paragraph.
TEXT

my @para = split(/\n\n/, $str);
s!\n!<br>\n! foreach @para;

$str = join "\n<p>\n", @para;

print ">>$str<<\n";