求助更新多个文件

我想更新多个文件，文件名与修改前相同。perl有$^I=“.bak”可以实现这个功能。
但是现在，由于我对单个文件的替换需要跨行，三种情况需要对整个文件读入后才能处理。所以，我写了如下代码：
while(<>) {
$lines.=$_;
}
然后再对$lines进行匹配替换。
if(//) {
}
if(//){
}
if(//){
}

现在的问题是我如何才能更新多个文件，文件名与修改前相同。
我不知道把print放在什么地方才能实现我想要的功能。
或者哪位仁兄给提供个其他的解决方案。
先谢谢各位了！

路过的大侠指点下啊