$ perl -e'for (qw/foo bar baz blah/){print int scalar(/b/..//)}' 0111$