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