Your solution has a few subtle bugs, try it with:

print mine ("Terence and Philip are sweet", 'c', 'Z', 3);
[download]

This happens because $pos is set to -1 after not finding a second 'c', and since you are indexing from $pos + 1, which has become 0, index searches from the start of the string, again.

You should also initialize $pos to -1, not zero, for similar reasons (otherwise it ignores the first character in the string).

Getting this problem right, without boundary or fencepost erros, employing manual indexing and positioning is remarkably tricky. So much so, that I'm not even sure the following fixed-up code is error-free:

sub crep {
  my ($str, $chr, $rep, $nth) = @_;
  my $pos = 0;
  while (--$nth > 0) {
    $pos = index $str, $chr, $pos;
    last if $pos < 0;
    $pos++;
  }
  substr ($str, $pos) =~ s/$chr/$rep/g if $pos >= 0;
  return $str;
}
[download]

I would really like to see if this can be improved upon, assuming the same method is used. In the meantime, here's a slight variant, which I believe to be correct:

sub crep {
  my ($str, $chr, $rep, $num) = @_;
  my $tstr = '';
  $tstr .= substr $str, 0, (1 + index $str, $chr), '' while --$num;
  $str =~ s/$chr/$rep/g;
  $tstr.$str;
}
[download]

update: I'm beginning to believe that this problem is the poster-child for unit testing! A more promising possibility... caveat emptor as always:

sub crep {
  my ($str, $chr, $rep, $num) = @_;
  $str !~ /$chr/g and return $str while $num--;
  substr ($str, -1 + pos $str) =~ s/$chr/$rep/g;
  return $str;
}
[download]

Of course, this one dances around the index problem with a regex.

update2: Improving on the original fix...

sub crep {
  my ($str, $chr, $rep, $nth) = @_;
  my $pos = 0;
  ($pos = index $str, $chr, $pos)++ < 0 and return $str while --$nth;
  substr ($str, $pos) =~ s/$chr/$rep/g;
  return $str;
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.