# ex_07-2a # Learning Perl on Win32 Systems, Exercise 7.2a while () { if (/a/i && /e/i && /i/i && /o/i && /u/i) { print; } }