如何在TCL列表中获取“多字”、“单字”和空字符串？我得到一个“非统一的”大括号格式化字符串的列表

set myList {apple banana orange}
set multiCharList [list]
foreach item $myList {
    if {[string length $item] > 1} {
        lappend multiCharList $item
    }
}

set singleCharList [list]
foreach item $myList {
    if {[string length $item] == 1} {
        lappend singleCharList $item
    }
}

set emptyStringList [list]
foreach item $myList {
    if {$item eq ""} {
        lappend emptyStringList $item
    }
}

set myString "{apple} {banana} {orange}"
set extractedList [list]
regexp -all {\{([^}]*)\}} $myString match -inline
for {set i 1} {$i < [llength $match]} {incr i} {
    lappend extractedList [lindex $match $i]
}