关于表达式配匹的一个问题,困扰中。。。

hotren

怎么才能用简单方法配匹到$a呢？谢谢
#!/usr/local/bin/perl
$a="0\/0\s+(\d+)\s*";
$b='0/0            3273 ';
print $a;
if ($b=~/$a)
{
    print "Matched,\$1 is $1\n";
}

churchmice

\Q$a\E
或者
perldoc -f index

还有$a,$b是perl的内置变量