Select Code to Download

while (/(b*)/g) {
...
}

$perl -e '$_="abbbabc";
while (/(b*)/g) { print "($1)\n" }'
...
(b)
()
()

abba
| match zero b's before a
...
    | match zero b's, don't substitute but bump along
^a^^a^
     | match zero b's, don't substitute but bump along

$ perl -le '$_ = "abba"; s/b*/print pos; "^"/eg; print'
0
...
3
4
^a^^a^