my $result = $example =~ s/foo/bar/r;

##</code><code>##

(my $result=$example) =~ s/foo/bar/;

##</code><code>##

...
    map { (my $result=$_) =~ s/foo/bar/; $result } @elements