$ perl -lwe '"abbabbbbc"=~/(b+)/ && print "Found: $1"'
Found: bb