在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"為要替換的實際文本內容。
