G:\cblead2\win32>perl -e "print $& if 'foobar'=~/foo|foobar/"
foo
G:\cblead2\win32>perl -e "print $& if 'foobar'=~/foo(?:|bar)/"
foo
G:\cblead2\win32>perl -e "print $& if 'foobar'=~/foobar|foo/"
foobar
G:\cblead2\win32>perl -e "print $& if 'foobar'=~/foo(?:bar)?/"
foobar