Select Code to Download

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

sub crep {
  my ($str, $chr, $rep, $nth) = @_;
...
  substr ($str, $pos) =~ s/$chr/$rep/g if $pos >= 0;
  return $str;
}

sub crep {
  my ($str, $chr, $rep, $num) = @_;
...
  $str =~ s/$chr/$rep/g;
  $tstr.$str;
}

sub crep {
  my ($str, $chr, $rep, $num) = @_;
...
  substr ($str, -1 + pos $str) =~ s/$chr/$rep/g;
  return $str;
}

sub crep {
  my ($str, $chr, $rep, $nth) = @_;
...
  substr ($str, $pos) =~ s/$chr/$rep/g;
  return $str;
}