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