##! perl -slw
use strict;
my $p=0; # Counts number of unmatched parens
while( <DATA> ) {
   ##m/\(TIMINGCHECK/ .. do {$p++ for m/\(/g; $p-- for m/\)/g;$p==0} or print , next;
   ## Faster+simpler version, plagerizing BrowserUK's paren counting mechanism
     m/\(TIMINGCHECK/ .. ($p+=tr[(][(] - tr[)][)])==0 or print ,next;
   print "//$_"
}

__DATA__
(CELL
  ...
  (TIMINGCHECK
    ....
    ....
  )
)
(CELL
 (CELLTYPE "SEDFQD1")
 (INSTANCE uTrigger/TrcInclCtrlReg_reg[13])
 (DELAY
 (ABSOLUTE
  (IOPATH CP Q (0.10:0.15:0.25)(0.09:0.15:0.24))
 )
 )
 (TIMINGCHECK
   (OTHERTEST
  (SETUP (posedge SI) (posedge CP) (0.14:0.23:0.41))
  (SETUP (negedge SI) (posedge CP) (0.09:0.16:0.30))
  ....(random lines)
  (HOLD (negedge SI) (posedge CP) (0.00:0.00:0.00))
  (HOLD (negedge D) (posedge CP) (0.00:0.00:0.00))
 )
 )
)