#!perl -pl
$a="[aeiou]";s/$a[^$a+$a|$a+|[^$a+/($&)/g