title: apply regsub for certain line in a paragraph in tcl
body: <p>This is the group of lines in which I have assigned to test variable</p>
  
  <pre><code>    set test {tkt(pnr(
                      ticket(20140414,130559),
                      fbcode(y),
                      etkt(yes),
                      entry(price),
                      trap([flist,186,tkt1,bag],[start(1)]),
                      city(y)
              ])).}
  </code></pre>
  
  <p>I need to search some list of values from "<strong>trapremlist</strong>" variable inside "trap([flist,186,tkt1,bag]".</p>
  
  <pre><code>    set trapremlist {bag bagdisclosure bt}
  </code></pre>
  
  <p>If any value from <strong>trapremlist</strong> is there in the "trap([flist,186,tkt1,bag]". then I need to remove the same. In this case I need to remove "bag".</p>
  
  <p>I thought to extract the list inside the trap([] and using the lsearch remove the value if it is there in trapremlist.</p>
  
  <p>But I couldn't get the list inside the trap([]  and update the list back after parshing</p>
  
  <p>Could you advise the best way to handle this ?</p>
  
  <p>Thank you..</p>