++gjb. Here is a variation which better preserves the original: my $upcased = join '', map { ucfirst } split /(\s+)/, $str; The parens in split's pattern make the seperating string be included in the resulting list. The ucfirst function has no effect on the captured whitespace.

After Compline,
Zaxo