Perl正则：为什么不匹配？

[proorck6]

如题：

$_="effect \((.+),stdout\)<?>pro_print($1);$2$3$4";
if($_ =~ /^effect (.+)<?>(.*)\$1(.*)\$2(.*)\$3(.*)\$4(.*)/){
	print "$1\n";
}else{
	print "不匹配\n";
}

[codesnail]

JF....

[proorck6]

问题解决了，少写了5个反斜杠。
继续散分……