perl 正则表达式 模糊匹配

$a='a0/0/0/0/0xx';
if ( $a =~ /\B([0\/]*)\b/ ){
print $1;
}
居然能出结果:
0/0/0/0/
为什么,能解释一下吗
其实我是想找出完全匹配一个‘0/0/0’ 这样的字符窜的方法,就发现了那个问题

\B([0\/]*)\b

\B表示单词内部的位置,匹配a0之间的位置。
[0\/]*表示由0或者/组成的长度为0个以上的字符串,匹配0/0/0/0/

\b表示单词分隔的位置,匹配0与/之间的位置
温馨提示:答案为网友推荐,仅供参考