$str= "bbbcccbbb"
while( $str =~ /b*/g ) { print "($`)<$&>($')\n" }
__END__
()<bbb>(cccbbb)
(bbb)<>(cccbbb) <-- This one
(bbbc)<>(ccbbb)
(bbbcc)<>(cbbb)
(bbbccc)<bbb>()
(bbbcccbbb)<>() <-- This one