>perl -E"print scalar 'foo'=~/(o+)/;"
1