小心处理匹配变量

匹配变量（$` ，$&以及 $'）会让Perl程序的执行速度大打折扣，因为它需要额外的时间和空间保存信息。

每次成功匹配之后，这三个匹配变量分别保存着匹配内容之前的文本，匹配内容本身以及匹配内容之后的文本。

从Perl 5.10 起引入了新的正则表达式修饰符/p，它只对当前匹配提供匹配变量。启用后，所匹配的内容分别

保存在变量${^PREMATCH} ${^MATCH} 和 ${^POSTMATCH} 中。

use 5.010;

'My cat is Buster Bean' =~  m/\s\w+\Bean/p;
say "I matched ${^MATCH}";

while(<>) {
   next unless /Bean/ ; #速度不受影响
}