在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";
}
以上是一些基本的正则表达式操作示例，在实际应用中可以根据具体需求来灵活运用正则表达式进行字符串处理。
