#!perl -p
!(y&aA&&&&y&eE&&&&y&iI&&&&y&oO&&&&y&uU&&)&&y&&&cd

##</code><code>##

#!perl -p
$_ x=!!eval"1@{[<&&y&{aA,eE,iI,oO,uU}&&>]}"

##</code><code>##

perl a.pl /usr/share/dict/words