Along with that, it's also for doing things like

  my $old = "foo"; my $new = $old =~ s/foo/bar/r;

$old still contains "foo" and $new contains "bar", but inside a map should be great as well.