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

[Andrey Fedorov]

В Срд, 08/04/2009 в 22:12 +0400, Dmitry Arsentiev пишет:
> Народ, доброй ночи.
> 
> А вот не знает ли кто-нибудь модуля для того, чтобы текст,
> криво (невалидно) размеченный тегами <p> и </p>,
> обвернуть в эти теги правильным образом?

Зачем искать для всего готовые модули, когда это можно сделать самому в
несколько строк?!

$in =~ s/\n|\r//g;
$in =~ s/(?<=^)|(?<=<\/p>)(?!<p>)/<p>/gi;
$in =~ s/(?<!<\/p>)(?<!^)(?=<p>)|(?=$)/<\/p>/gi;
$in =~ s/<p><\/p>//g;