my $upcased = join(" ", map(ucfirst($_), split(/\s+/, $str)));