How about using a single regular expression?

my $str = "florence, defense";

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

print "$str\n";
[download]

And the output is -

florense, defence
[download]

which is just as expected.