If you like obfus, try a.pl:

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

and b.pl:

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

When run with, for example:

perl a.pl /usr/share/dict/words
[download]

they both seem to work ok. BTW, can anyone recognize what inspired these solutions?

/-\