fldxt

##</code><code>##

	@dict{ map uc, grep /[aeiouy]/, map /^([a-z]{5})$/, <$FH> } = ();

##</code><code>##

print "\n    Answer = $curr_word\n" if @ARGV;