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