在Perl中，可以使用正則表達式的方式來進行字符串匹配和替換操作。以下是一些基本的正則表達式操作示例：
my $str = "Hello, World!";
if ($str =~ /Hello/) {
print "String contains 'Hello'\n";
}
my $str = "Hello, World!";
$str =~ s/Hello/Hi/;
print "$str\n"; # 輸出 "Hi, World!"
my $str = "The price is $100";
if ($str =~ /(\$\d+)/) {
my $price = $1;
print "Price: $price\n"; # 輸出 "Price: $100"
}
my $str = "apple,banana,orange";
while ($str =~ /(\w+)/g) {
print "$1\n";
}
以上是一些基本的正則表達式操作示例，在實際應用中可以根據具體需求來靈活運用正則表達式進行字符串處理。
