#!perl -p s/([aeiou]){2,}|(?1).*?(?1)|(?1)|[^aeiou ]+/($&)/g