Help for this page

Select Code to Download


  1. or download this
    #!perl -p
    !(y&aA&&&&y&eE&&&&y&iI&&&&y&oO&&&&y&uU&&)&&y&&&cd
    
  2. or download this
    #!perl -p
    $_ x=!!eval"1@{[<&&y&{aA,eE,iI,oO,uU}&&>]}"
    
  3. or download this
    perl a.pl /usr/share/dict/words