【Perl 】初心者コーナーPart5

sub paragraphの最後にこの2行をつっこみ。
$com =~ s{>・([^<].*?)<}{><ul><li>$1</li></ul><}g;
$com =~ s{</ul><br><ul>}{}g;

時間かかっちゃった(-▽-;