Select Code to Download

my $str = "florence, defense";

$str =~ s/n(c|s)e/$1 eq 'c'?'nse':'nce'/ge;

print "$str\n";

florense, defence