1 2 3 4 5 6 7
$_ = 'abc(.apple(bb),.orange(aa))'; s#(,.\w+\(\w+\))#/*$1*/#; print "$_\n"; $_ = 'abc(.apple(bb),.orange(aa))'; s/,.\w+/,./; print "$_\n";
1 2
abc(.apple(bb)/*,.orange(aa)*/) abc(.apple(bb),.(aa))