Как получить алфавит из выражения, используя регулярное выражение в tcl

Question

Предположим, что выражения

A=10
D=A
B=10+1+D
C=19-B+1
E=A+C

, и мне нужен вывод типа

A
D A
B D
C B
E A C

Сначала я прочитал все выражения и разделил их на основе операторов и сформированной строки и использовал регулярное выражение.

#suppose new is a variable storing each expressions
set new1 $new
foreach new $expression { 
    set parval [split $new {= + - * /}]
    set new [join $parval ""]
    lappend new1 $new
}

foreach n $new1 {
    set result [regexp {([A-Z,a-z]*)}  $n match]
    puts $match
}

Но я получаю только первый алфавит в качестве вывода.