在Perl中，可以使用正則表達式來替換文本內容。可以使用Perl內置函數substitute或s///來進行替換。以下是一個例子：
my $text = "Hello, World!";
$text =~ s/World/Perl/; # 使用正則表達式替換文本內容
print $text; # 輸出：Hello, Perl!
在上面的例子中，s/World/Perl/表示將字符串中的"World"替換為"Perl"。$text是要替換的字符串變量。
如果要替換字符串中的多個匹配項，可以使用g修飾符：
my $text = "Hello, World! World is awesome!";
$text =~ s/World/Perl/g; # 使用正則表達式替換所有匹配項
print $text; # 輸出：Hello, Perl! Perl is awesome!
在上面的例子中，s/World/Perl/g表示將字符串中所有的"World"替換為"Perl"。
除了使用s///，Perl還提供了其他替換函數，例如substitute：
my $text = "Hello, World!";
$text = substitute($text, "World", "Perl");
print $text; # 輸出：Hello, Perl!
在上面的例子中，substitute函數將字符串中的"World"替換為"Perl"。
