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

while( <DATA> ) {
    chomp;
    if(  ! m[TIMINGCHECK]  ) {
        print;
        next;
    }
    my $count= tr[(][(] - tr[)][)];
    do {
        s[^][//];
        print;
        last    # Leaves the while( <DATA> ) loop
            if  ! defined( $_= <DATA> );
        chomp;
        $count += tr[(][(] - tr[)][)];
    } while(  0 <= $count  );
    print;
}

##</code><code>##

#!/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;
}