while (defined($_ = <STDIN>)) {
    if (/a/i and /e/i and /i/i and /o/i and /u/i) {
        print $_;
    }
}