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