$string =~ s/($pattern)/$i++ == $n ? $better : $1/ge;

##</code><code>##

abacab
0b1c2b