[Perl] \b \B的用法

$test = "perl";　　#True
$test = "perl!";    #True
$test = "!perl";    #True
$test = "2perl";    #True
$test = "perl2";    #True
$test = "2perl1";    #True
$test = "*2perl1";    #False
$test = "*2perl1*";    #False

#以上是对$test 各种赋值case，当然没有列所全

$test = "perl2";

if ($test =~ /\b$test\b/) {
    print "Ture\n";
}else{
    print "False\n";
}

还有另外一种写法

$testA = "perl2*";

if ($test =~ /\b($testA)/) {
    print "Ture\n";
}else{
    print "False\n";
}

\B的匹配有些问题，暂时还没分析原因