# ex_07-2c

# Learning Perl on Win32 Systems, Exercise 7.2c



while (<STDIN>) {

  if (/^[eiou]*a[^iou]*e[^aou]*i[^aeu]*o[^aei]*u[^aeio]*$/i) {

    print;

  }

}