$v=0,$a=$_,chomp,s/[aeiou]/$v++/ge,length$_<$v*2&&print$a for<>