$ perl -le'for( qw( foo bar baz quux ), "" ){ print int scalar( /b/ .. /$^/ ) }'
0
1
2
3
4
$ perl -le'for( qw( foo bar baz quux ), "" ){ print int scalar( /baz/ .. /$^/ ) }'
0
0
1
2
3