Select Code to Download

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

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

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