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