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

##</code><code>##

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