title: How to replace multiple space with a single comma in TCL
body: <p>Please tell me way to replace multiple spaces with comma for example input string</p>
  
  <pre><code>set string "boy      cat dog            girl     man"
  </code></pre>
  
  <p>there can be multiple space between the strings example 8 betwee boy and cat , 4 between dog and girl </p>
  
  <p>and i want it as <code>boy,cat,dog,girl,man</code></p>