# --- CAPITALIZE LETTER AFTER STAR + SPACE --------------------------
    #
    set final_lines_capitalized {}
    foreach line $final_lines {
        # Find the star and the space after it
        if {[regexp {^\* (\w)} $line -> star space first_letter]} {
            set capitalized_letter [string toupper $first_letter]
            # Replace the first letter after * and space with uppercase
            regsub {^\* (\w)} $line "* $capitalized_letter" new_line
            lappend final_lines_capitalized $new_line
        } else {
            lappend final_lines_capitalized $line
        }
    }