Perl用（?..）语法给正则表达式提供扩展名。?: ?= ?!

语法看起来像这样：

　　　 (? )

这里，代表扩展名，是表达式使用的文本.
?!  只在后面没有《regexp》情况下匹配。
?:  组合但非反向引用创建括号。即匹配但不把内容存入$number中。
?=  匹配下一组文本，但不“吃掉”它来进一步匹配。

$a='dabde';
$a=~/ab(?:d)/;
print $&, '....', $1;

abd....

"that is a bag" =~ /that(?! is)/;
print "……$&\n";

"these are my bag" =~ /these\s+(?!is)/;
print "……$&\n";
……
……these

。例如：(?:…)通过除去不必要的反向引用而使正则表达式更高效。如果输入：

　　　 $line = ~ m " (?:int | unsigned int | char )\s*(\w+)";

以得到变量名，而可能不希望保存变量的类型，因而用(?:)。表达式匹配给定类型，后跟空格，后跟变量名(\w＋)。但是把变量名保存在＄1中而不是$2中，(?：)被忽略。这样可节省时间和内存，尤其是在大型模式匹配中。

$a="BLOCK1  BLOCK2  BLOCK3 ";
while ($a =~ m "BLOCK\d(.*?)(?=BLOCK\d|$)"g)

{

 print " $1 \n";

}


while ($a =~ m "BLOCK\d(.*?)(BLOCK\d|$)"g){
    print "...$1\n";
}

  <data>
  <data2>
  <data3>
... <data>
... <data3>