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