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/;
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (292 votes). Check out past polls.