$ perl -E'my @X = qw(a b c); say "ok" if "b" ~~ @X'


##</code><code>##

$ perl -E'use constant X => qw(a b c); say "ok" if "a" ~~ X'


##</code><code>##

perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'