perl怎么自动修改文件内容

perl如何自动修改文件内容？
我准备写一个程序，对文件对应的行要进行修改。用字符串替换，出错说“不能替换”。请高手赐教有什么更好的方法？代码如下：
!/usr/bin/perl
open(filehandle,"</home/66.tpl");
!/usr/bin/perl
open(filehandle,"</home/66.tpl");
while($linename=<filehandle>)
{
if($linename=~m/00:FF:00:FF:00:FF/)
{
print "00:FF:00:FF:00:FF in the file!\n";
}
print $linename
}
close(filehandle);


------解决方案--------------------
汗……那就接分啦。

是不是把m///换成s///？