如何在perl中将文件行中的一些模式替换为空格？

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件
open(my $fh, '<', 'file.txt') or die "无法打开文件: $!";

# 逐行读取文件
while (my $line = <$fh>) {
    # 使用正则表达式替换模式为空格
    $line =~ s/模式/ /g;  # 将"模式"替换为空格，可以根据实际需求修改模式

    # 输出替换后的行
    print $line;
}

# 关闭文件
close($fh);