perl关于括号的使用,该如何处理

perl关于括号的使用
大家好,请看以下代码和问题:
Perl code

#!/usr/bin/perl -w
use strict;
use diagnostics;

$_="fred wilma";

if(/(fred)*(wilma)/) #请问这里改成“if(/fred*wilma/)”就不能输出“yes”呢?两者有什么不同? 
{
  print "yes \n";
}




谢谢!

------解决方案--------------------
fredfredfred和freddd的区别
------解决方案--------------------
(fred)*(wilma)也能匹配sb wilam。

正确的正则表达式应该是
/fred\s+wilma/
------解决方案--------------------
用小括号标志出量词的作用对象
不用小括号就表示作用于一个字符。
(fred)* fredfred
fred* freddddd