>>655
1 while $str =~ s/\(([^(]*?)\)/"[$1 ".++$num."]"/ge;

ちなみにここはPerlに限ったスレじゃないからな