Help for this page
print "Please enter your name:\n";
chomp( $name = <> );
$x = ucfirst $name;
# The \u metacharacter acts only upon the first character.
# No need for substr.
$x = "\u$name";
# Assuming Perl 5.14+
$x = $name =~ s/^(.)/\u$1/r;
$x = $name;
$x =~ s/^(.)/\u$1/;
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (575 votes). Check out past polls.