s/foo/bar/ for (@these) if ($this);