Help for this page

Select Code to Download


  1. or download this
    while (<STDIN>) {
       if (/a/i && /e/i && /i/i && /o/i && /u/i)) {
           print;
       }
    }
    
  2. or download this
    while ( defined ($line = <STDIN>) ) {
       if ($line =~ (/a/i && /e/i && /i/i && /o/i && /u/i)) {
          print $line;
       }
    }