#!/usr/bin/perl
while (<>) {
    if (/a/i && /e/i && /i/i && /o/i && /u/i) {
        print;
    }
}