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