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