使用正则表达式如何在不包含周围字符串的情况下找到由其他两个图案包围的图案？

我想使用正则表达式(Perl兼容)能够找到由其他两个模式包围的模式,但不包括匹配匹配中周围模式的字符串.

例如,我希望能够找到字符串的出现次数:

Foo Bar Baz

但只有匹配包括中间部分:

酒吧

我知道这是可能的,但我不记得该怎么做了.

括号定义分组.

"Foo (Bar) Baz"

例

~> cat test.pl
$a = "The Foo Bar Baz was lass";

$a =~ m/Foo (Bar) Baz/;

print $1,"\n";
~> perl test.pl
Bar