while($_=~ s@\(([^\)]*?),@\($1;@gs){}