【Perl 】初心者コーナーPart5

以下のような置換が上手く出来ません。
行の先頭に中黒が付いてたらリストとみなして、

<p>ほげ</p><p>・リスト１<br>・リスト２<br>・リスト３<br></p><p>ほげ・ほげ<br>・りすと４</p>

<p>ほげ</p><ul><li>リスト１</li><li>リスト２</li><li>リスト３</li></ul><p>ほげ・ほげ</p><ul><li>リスト４</li></ul>

というようなことをしたいのです。
どうにか良い方法は無いでしょうか。