Help for this page
while (<STDIN>) { if (/a/i && /e/i && /i/i && /o/i && /u/i) { print; } }
hile (<>) { print if (/^[^aeiou]*a[^eiou]*e[^aiou]*i[^aeou]*o[^aeiu]*u[^aeio]*$ ); }