scalar s="ars longa vita brevis"

* is there a vowel?
di regexm(s,"[aeiou]")

* replace the first vowel with "?"
di regexr(s,"[aeiou]","?")