在Perl中，可以使用正则表达式和特定的函数来替换文件内容。下面是一个示例脚本：
#!/usr/bin/perl
use strict;
use warnings;
# 打开文件
open(my $fh, '<', 'file.txt') or die "无法打开文件：$!";
# 读取文件内容
my $content = do { local $/; <$fh> };
# 替换文件内容
$content =~ s/old_text/new_text/g;
# 关闭文件
close($fh);
# 打开文件以写入替换后的内容
open($fh, '>', 'file.txt') or die "无法打开文件：$!";
# 写入替换后的内容
print $fh $content;
# 关闭文件
close($fh);
在上述示例脚本中，首先打开文件并读取其内容。然后，使用正则表达式替换文件内容中的"old_text"为"new_text"。接下来，再次打开文件以写入替换后的内容，并将替换后的内容写入文件。最后，关闭文件。
请注意，在实际使用时，应替换"file.txt"为实际的文件路径和名称，以及"old_text"和"new_text"为要替换的实际文本内容。
