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