>>862

1 while s/(\([^)]+),/$1,/g;