在Perl中，你可以使用正則表達式和替換函數來替換多個字符串。以下是一個示例代碼：
#!/usr/bin/perl
use strict;
use warnings;
my $string = "Hello, world! This is a test string.";
# 定義要替換的多個字符串和替換后的字符串
my %replace = (
"Hello" => "Hi",
"world" => "everyone",
"test" => "example"
);
# 使用正則表達式和替換函數替換多個字符串
foreach my $key (keys %replace) {
$string =~ s/\Q$key\E/$replace{$key}/g;
}
# 輸出替換后的字符串
print $string;
在上面的示例中，我們首先定義了一個包含要替換的多個字符串和替換后的字符串的哈希 %replace。然后，我們使用 foreach 循環遍歷哈希的鍵，并使用正則表達式和替換函數 s/// 將字符串中的多個字符串替換為指定的字符串。最后，我們輸出替換后的字符串。
注意，在正則表達式中，我們使用了 \Q 和 \E 來轉義要替換的字符串，以確保它們被視為普通的字符，而不是正則表達式元字符。并且結尾的 g 標志表示替換所有匹配的字符串，而不僅僅是第一個。
希望這可以幫助到你！
