<>=~$";$k=$';<>=~/(\((?1)*\))(?{$b[$b[pos]="@-"+1]=pos})^/;print$b[$k]