perl -le"$_='bbaabb'; /b*(?{print '.' x $-[0],qq<($&)>})(*FAIL)/g"
(bb)
(b)
()
.(b)
.()
..()
...()
....(bb)
....(b)
....()
.....(b)
.....()
......()