旧自述的正则表达式

Question

我有一个旧的自述文本文件。而我正试图从某些部分获取文本。 部分是

--thing1 thing2-- 
stuff
-- thing1 thing2--
more stuff

我正在寻找一个正则表达式片段，它将返回该部分中的东西，其中thing1等于“Beta”。

Answer 1

my %sections =~ m/--[ ]*(\w+[ ]+\w+)[ ]*--(.*?)/g;
print $sections{$_} for grep { m/\A Beta \b / } keys %section;

Answer 2

(?<=^--Beta \w+--$).*?(?=^--)

设置点以匹配换行符。