$text =~ s/\n|^/<br>/gs;
$text =~ s/<br>\s*[-·]/<ul><li> /gs;
$text =~ s/<ul><li>([^<]*)<ul>/<ul><li>$1/gs;
$text =~ s/<li>([^<]*)(<br>\n*\s*)+/<li>$1<\/ul>/gs;