perl中的模式匹配的逻辑运算符

eq ne 用于字符串判断 ，在perl中没有字符的概念

== <>用于数字判断

例如：

my $var = "3454s";

if ($var =~m/^(/d+)(/S+)/)
{
 if($1 eq 3454 and $2 ne "N")
 {
  print "OK";
 }
 else
 {
  print "No";
 }
}