Not sure I'd want to load 17000 lines into an array in one go. I'd rather do something like this:

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

update: Ahh, CheeseLord gave similar advice. Should have read all replies before posting :)

Error: Keyboard not attached. Press F1 to continue.