如何使用Perl修改位于特定行后一行的行？

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

while (my $line = <$file>) {
    if ($line =~ /特定行/) {
        # 在这里进行修改操作
    }
}

while (my $line = <$file>) {
    if ($line =~ /特定行/) {
        my $next_line = <$file>;  # 读取位于特定行后一行的行
        $next_line = "修改后的内容\n";  # 修改行的内容
    }
}

seek($file, 0, 0);  # 将文件指针移动到文件开头
while (my $line = <$file>) {
    if ($line =~ /特定行/) {
        my $next_line = <$file>;  # 读取位于特定行后一行的行
        $next_line = "修改后的内容\n";  # 修改行的内容
    }
    print $file $line;  # 将内容写回文件
}

close($file);  # 关闭文件