#!perl -p
s/(([^aeiou ]+) |([^aeiou]*[aeiou]) *)/$2.$3." "x++$x/ge