sub paraphrase {
    my $text = shift;
    $text =~ s/\r/\n/gs;
    $text =~ s/(?:\n\s*){2,}/<\/p>\n<p>/gs;
    return "<p>$text</p>";
}