Eh, you didn't actually test this, did you? =)

See my reply to bbfu above. You'd have to do something like:

sub adv_tr {
  my ($str, $x, $from, $to) = @_;
  my $pos = -1;
  ($pos = index($str, $from, $pos + 1)) == -1 and return $str while $x
+--;
  eval "substr(\$str, $pos) =~ tr/\Q$from\E/\Q$to\E/";
  $str;
}
[download]

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