title: What is the most elegant way to find the sum of all numbers in a string in TCL?
body: <p>What is the most elegant way to find the sum of all numbers in a TCL string of the following format ?
  For eg.</p>
  
  <pre><code>set s1 "{A 30.8950} {B 29.5680} {C 20.5160}"
  </code></pre>
  
  <p>How to find the sum, 30.8950 + 29.5680 + 20.5160 ?</p>