(message (concat "Processing file " buffer-file-name))
(while (search-forward "y" nil t)
  (message "Changing on")
  (what-line)
  (backward-delete-char 1)
  (insert-string "z")
)
(save-buffer)