title: How to retrieve 1 (from M 1 COMPLD) this line using regexp in TCL?
body: <pre><code>set sample "act-user:IMLI:nmss:1::***;
  imli 2013-10-21 15:13:54
  M  1 COMPLD
  ;
  IMLI 2013-10-21 15:13:54
  ;
  &gt;"
  </code></pre>
  
  <p>How to retrieve 1 (from M  1 COMPLD) this line using regexp in TCL ???</p>