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