gistfile1.txt

method format($text) {
    my @result_pars;

    for split(/\n ** 2..*/, $text) -> $paragraph {
        my $cleaned_of_whitespace = $paragraph.trans(
            [ /\s+/ => ' ' ]
        );

        push @result_pars, "<p>$cleaned_of_whitespace</p>";
    }

    return join "\n\n", @result_pars;
}