title: TCL : find and remove all characters in a string from the first occurrence of a character in a string
body: <p>I am a newbie in TCL and in need of a TCL method / utility / code which can find and remove all characters (including itself) in a string from its first occurrence in a string.</p>
  
  <p>I have a string like below:</p>
  
  <pre><code>Func::set()-&gt;method();
  </code></pre>
  
  <p>In the above string  I need to find first occurrence of '(' and remove all it and after that so that the resultant string would be just:</p>
  
  <pre><code>Func::set
  </code></pre>