$ perl -le'for( qw/foo bar baz blah/ ){ print int scalar( /b/ .. // ) }' 0 1 1 1 $ perl -le'for( qw/foo bar baz quux/ ){ print int scalar( /b/ .. // ) }' 0 1 1 0