[Moscow.pm] модуль для укрытия всего текста в параграфы

[Alexander Lourier]

On Wednesday 08 April 2009 22:12:02 Dmitry Arsentiev wrote:
> А вот не знает ли кто-нибудь модуля для того, чтобы текст,
> криво (невалидно) размеченный тегами <p> и </p>,
> обвернуть в эти теги правильным образом?

Навскидку:

$html =~ s/(?:<\/?p>\s*)+/<\/p><p>/gsi;
$html =~ s/^\s*<\/p>//si;
$html =~ s/<p>\s*$//si;
$html = '<p>' . $html unless $html =~ /^\s*<p>/si;
$html = $html . '<p>' unless $html =~ /<\/p>\s*$/si;