如何在Perl中将文本附加到包含替换的行？

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件进行读取和写入
open(my $input_fh, '<', 'input.txt') or die "无法打开输入文件: $!";
open(my $output_fh, '>', 'output.txt') or die "无法打开输出文件: $!";

# 逐行处理输入文件
while (my $line = <$input_fh>) {
    # 使用正则表达式匹配需要替换的行
    if ($line =~ /需要替换的文本/) {
        # 将文本附加到匹配的行
        $line .= "附加的文本\n";
    }
    # 将处理后的行写入输出文件
    print $output_fh $line;
}

# 关闭文件句柄
close($input_fh);
close($output_fh);