>>430
一文字の置換ならtr//が使える。
それ以外なら、面倒だけどコード書くしかないね。
こんなとか。
sub replace {
my ($string, $replacer, $replacement) = @_;

my $replacer_length = length $replacer or return $string;

my $pos = length $string;
while(($pos = rindex($string, $replacer, $pos - 1)) >= 0){
$string =
substr($string, 0, $pos) .
$replacement .
substr($string, $pos + $replacer_length);
}

return $string;
}