Another solution is this one.
join [list {*}$str] ""
Using the {*}
operator, from Tcl parser point of you writing something like:
join [list BAT-CAT, DOG,ELEPHANT ,LION & MOUSE-ANT ,MONKEY, DONKEY] ""
Now, the list
command will create a new list where every element is one of its parameters, and the white spaces are used as parameter separators.
Finally, the join
command takes a list as its former parameter and a separator as its latter parameter and build a string formed by the list items separated by the separator. In this case, I'm using the empty string as separator, so the resulting string is composed from list items without anything among them.
You can do it also using this simpler syntax
join $str ""