#ex_07-2c
#Learning Perl Appendix A, Exercise 7.2c
while (<STDIN>) {
    if (/^[eiou]*a[^iou]*e[^aou]*i[^aeu]*o[^aei]*u[^aeio]*$/i) {
        print;
    }
}
