regex - Perl 正则表达式在相同情况下替换

Question

如果您在 perl 中有一个简单的正则表达式替换，如下所示:

($line =~ s/JAM/AAA/g){

我将如何修改它以使其查看匹配项并使替换与匹配项相同，例如:

“果酱”将成为“AAA”
“果酱”会变成“aaa”

Answer 1

$line =~ s/JAM/{$& eq 'jam' ? 'aaa' : 'AAA'}/gie;