perl 编程，读取文件然后修改文件内容的问题

我的目的是这样的：我的XML文件最后一行是,我想加入新东西进去，所以要先把删掉，再写进去我想写的东西，再写入. 但是我不知道怎么把替换为。

我的代码是这样的：
open(FILE,"+while (my $line = ) {
$name = $formin{"Name"};
if($line =~ /\<\/Database\>/){
####这是关键行 $line =~ s/\/Database/User/;
}
close(FILE);

在上面关键行中，我只能修改$line的内容，文件内容并没有改变。请帮我修改代码。

！！！！我只用基础代码，不用任何现有工具。

open(FILE,"+){
chomp;
s/<\/Database>/<\/user>/g;
print $_."\n";
}
close(FILE);
看看这样，也该行。 xml操作，为什么不用模块呢？ 这样单行处理，可能会误操作替换阿。

open(file,"+&lt;a.xml"); while(&lt;file&gt;){ chomp; s/&lt;\/database&gt;/&lt;\/user&gt;/g; print $_."\n"; } close(file); 看看这样，也该行。 xml操作，为什么不用模块呢？ 这样单行处理，可能会误操作替换阿。

ify_flag; While(my $readin=){ if ($readin 匹配第一个条件) ## 匹配第一个条件，标记一下后，直接跳出循环 elsif ($readin 匹配第二个条件) elsif ($readin 匹配第三个条件) else ## 如果不匹配上述三个条件，则原样输出 } close FH; if (not defined $not_modify_flag){ print $output; ## 最后输出; } else { print "匹配第一个条件，不做修改"."\n"; } exit(0);