perl匹配特殊写法

my $name='4';
#找匹配4
for($name)
{
    if(/^4$/)
    {
      print "success\n";
    }
    else
    {
      print "failed";
    }
}
 

输出

success

这种写法省略了～=,自动和$name匹配