#ex_07-2a
#Learning Perl Appendix A, Exercise 7.2a
while (<STDIN>) {
    if (/a/i && /e/i && /i/i && /o/i && /u/i) {
        print;
    }
}
