$ echo bbbaaabbb | perl -pe 's/(b*)/(\1)/g'
(bbb)()a()a()a(bbb)()
() $ echo bbbaaabbb | perl -lpe 's/(b*)/(\1)/g' >
(bbb)()a()a()a(bbb)()
 $