#!/usr/bin/perl -lw
use strict;

my $count= -1;
while( <DATA> ) {
    chomp;
    $count= 0
        if  m[TIMINGCHECK];
    $count += tr[(][(] - tr[)][)]
        if  0 <= $count;
    s[^][//]
        if  0 <= $count;
    print;
}