This is an ugly, half baked idea, but you might do something like this:

while ($word) {
    ($consonants, $vowel, $word) = split(/([aeiou])/, $word, 2);
    # do something here
}
[download]

I really like the parenthesis collection feature in split.