(define-key evil-visual-state-map (kbd "C-s") (lambda ()
    (interactive)
     (let ((b (region-beginning))
           (e (region-end)))
      (goto-char b)
      (while (re-search-forward "foo" e t)
        (replace-match "bar"))
    )
  ))