#!perl -pl
s/([^aeiou]++)|.(?1).|[aeiou]+/($&)/g