# ex_07-2b

# Learning Perl on Win32 Systems, Exercise 7.2b



while (<STDIN>) {

  if (/a.*e.*i.*o.*u/i) {

    print;

  }

}