Perl正则表达式替换相同的情况

Question

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

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

我将如何修改它以便它查看匹配并使替换与匹配的情况相同,例如:

'JAM'将成为'AAA','jam'将成为'aaa'

Answer 1

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