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