>>839
my $new = $old =~ s/cat/dog/r;

これってさ、置換してからさらに置換するってどう書くの？

JavaScript風に書けばこんな感じ
var $new = $old.replace("cat", "dog").replace("tiger", "mouse");

Perlだとこんな感じ？
my $new = ($old =~ s/cat/dog/r) =~ s/tiger/mouse/r;