>>730 元ファイルの構成がイマイチ判らないんだけど…
こんな感じかなぁ。。恥かしい処理だ。。
foreach $line (@lines) {
$line =~ s/^・(.*)/<ul><li>$1<\/li><\/ul>/;
$new .= "$line\n";
}
$new =~ s/<\/li>(<\/ul>\n<ul>)?<li>/<\/li>\n<li>/g;
print <<"EOE";
Content-type: text/html
$new
EOE
exit;
@linesにファイル入れてね。