请求大侠看看代码！

作用：替换文件里特定的文字（正则替换）
代码：
#!/usr/bin/perl
use strict;
my $file="/root/grep";
open GREP,"+<",$file||die "can't open file!\n";
$^I=".bak";#这个好像不能起作用，看不见备份文件的
while(<GREP>
{
        chomp;
        if(s/<http:\/\/.+\.html>/<http\/\/wgg\.com>/)
        {
                print GREP;
        }


}
close GREP;


grep文件如下：


A AU UT TH HO OR R
       Written by David MacKenzie.

R RE EP PO OR RT TI IN NG G B BU UG GS S
       Report bugs to <bug-coreutils@gnu.org>.

C CO OP PY YR RI IG GH HT T
       Copyright (C) 2006 Free Software Foundation, Inc.
       This is free software.  You may redistribute copies  of  it  under  the
       terms       of       the      GNU      General      Public      License
       <http://www.gnu.org/licenses/gpl.html>.  There is NO WARRANTY,  to  the



望大侠们指教指教！！

$^I针对的是@ARGV和<>,你这样写当然不行了

那备份应该怎样实现？？我发觉"+<"这个先读后写不会替换的，而是写在后边一行（取代了）！！