在Perl中，可以使用正则表达式和特定的函数来替换文件内容。下面是一个示例脚本：
#!/usr/bin/perluse 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"为要替换的实际文本内容。
