while(<OUTPUT>) {
     
    $_=~s/<!-- (TBROWS) \/\/-->/$table_rows/g; 

    print  $_;
    
    }