my $i; s/example\K/'_' . ++$i/eg;