Select Code to Download

fldxt

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

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