Help for this page

Select Code to Download

Select or download this

BEGIN {
  *CORE::GLOBAL::ucfirst = sub {
    join ' ', map ucfirst, split / /, @_ ? $_[0] : $_
  }
}