-p $_ x=1&~$.&split$&while aeiouy=~/.?/g