Select Code to Download

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

a
bbbcccbbb
.
s/(b*)/x\1/g

xbbbcxcxcxbbb
   /\       /\ no "x"s there