Help for this page
> perl -wle '
q(foo) =~ m/.*/;
> perl -le ' my $incr = 0;
q( print $incr++, $& and " stew" =~ /.*/ and eval $& until $incr > 10)
+ =~ /.*/;
eval $&; # prints '0 ( guesswhat) '..'10 stew' (versions differ on
Throwing nuclear weapons into the sun
Making everybody on Earth disappear
A threat from an alien with a mighty robot
A new technology or communications medium
Providing a magic fish to a Miss Universe
Establishing a Group mind
Results (194 votes). Check out past polls.