my $old = 'cat';
my $new = $old =~ s/.+/dog/r;
## $old still 'cat'
## $new is 'dog'