#!/usr/bin/env perl
my $t = ' aa bb cc';
$t =~ s/(\s)(\w)/${1}uc($2)/g;
print($t);