$ perl -e'$_=foobar;/(oo(ba)r)/;print $+,$/'
ba
$ perl -e'$_=foobar;/(oo(ba)r)/;print $^N,$/'
oobar
$