Using map implies a join of some sort. This will normalise any spaces that may have been in your original data unless the regex used to split the data is zero width.

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