Select Code to Download

"abbbbc"=~/(b*)/g && print "Found: $1";
# Found:

my $string1 = "abbbbc";

my $found1 = $string1 =~ s/(b*)/^/g;
...
             "c"        |
     no "b" after "c"    |
=cut