my @new = map {s/foo/bar/g; $_} @old;