my $upcased = join '', map { ucfirst } split /(\s+)/, $str;