$string = "25abc8";
$string =~ /abc(?=[0-9])/;
$matched = $&; # $&为已匹配的模式，此处为abc，而不是abc8
4、模式注释
PERL5中可以在模式中用?#来加注释，如：
if ($string =~ /(?i)[a-z]{2,3}(?# match two or three alphabetic characters)/ {
...
}
现以简表总结如下：
一 文字处理模式中,/pattern/常用到的语法
/pattern/
结果
.
除了换行字符n外,找寻只有一个字符的字符串
x?
找寻0个或是1个x字符
x*
找寻0个或是0个以上的x字符
.*
找寻0个或是0个以上的任何字符
x+
找寻0个或是1个以上的x字符
.+
找寻1个或是1个以上的任何字符
{m}
找寻刚好是m个个数指定的字符
{m,n}
找寻在m个数个数以上,n个个数以下指定的字符
{m,}
找寻m个个数以上指定的字符
[]
找寻符合[]内的字符
[^]
找寻不符合[]内的字符
[0-9]
找寻符合0到9的任何一个字符
[a-z]
找寻符合a到z的任何一个字符
[^0-9]
找寻不符合0到9的任何一个字符
[^a-z]
找寻不符合a到z的任何一个字符
^
找寻字符开头的字符
$
找寻字符结尾的字符
d
找寻一个digit(数字)的字符,和[0-9]语法一样
d+
找寻一个digit(数字)以上的字符串,和[0-9]+语法一样
D
找寻一个non-digit(非数字)的字符,和[^0-9]语法一样
D+
找寻一个non-digit(非数字)以上的字符,和[^0-9]+语法一样
w
找寻一个英文字母或是数值的字符,和[a-zA-Z0-9]语法一样
w+
找寻一个以上英文字母或是数值的字符,和[a-zA-Z0-9]+语法一样
W
找寻一个非英文字母,数值的字符,和[^a-zA-Z0-9]语法一样
W+
找寻一个以上非英文字母,数值的字符,和[^a-zA-Z0-9]+语法一样
s
找寻一个空白的字符,和[ntrf]一样
s+
找寻一个以上空白的字符,和[ntrf]+一样
S
找寻一个非空白的字符,和[^ntrf]一样
S+
找寻一个以上非空白的字符,和[^ntrf]+一样
b
找寻一个不以英文字母,数值为边界的字符串
B
找寻一个以英文字母,数值为边界的字符串
a|b|c
找到符合a字符或是b字符或是c字符的字符串
abc
找到一个含有abc的字符串
(pattern)
()这个符号是会记忆所找寻到的字符,是一个很实用的语法
第一个()内所找到的字符串变成$1这个变量或是1变量
第二个()内所找到的字符串变成$2这个变量或是2变量
