(if (re-search-forward "\\(ae\\|oe\\|ue\\)" nil t) (setq string (buffer-substring (match-beginning 0) (match-end 0))))