my $new = join '', map {ucfirst lc} split /(?=\s)/;