perl -e '$a ="Inst1 cell1 ( .Q ( nets ) , .T (nety)  ) ;\n"; $a=~s/\).*?$//; print $a;'