Help for this page

Select Code to Download


  1. or download this
    s/(\w)(\w*)/\U$1\E$2/ for @array;
  2. or download this
    my @arrayl = map {ucfirst} @array;
  3. or download this
    $_ = 'foo bar foobar barfoo 1 2 3';
s/(\w)(\w*)/\U$1\E$2/g;
print;
# Foo Bar Foobar Barfoo 1 2 3