$text =~ s{(?:<br\s+/>)?(\s*</?(?:[uo]l|li)>\s*)(?:<br\s+/>)?}{$1}gi;