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