while (<STDIN>) {
if (/a/i && /e/i && /i/i && /o/i && /u/i) {
print;
}
}

##</code><code>##

hile (<>) {
print if
(/^[^aeiou]*a[^eiou]*e[^aiou]*i[^aeou]*o[^aeiu]*u[^aeio]*$ );
}