#!/usr/bin/perl -w
use strict;  # Or don't. See if I care.

while (<>) {
   print if (/[Aa]/ && /[Ee]/ && /[Ii]/ && /[Oo]/ && /[Uu]/);
}