my @a = ("a  sTrinG\n" );
s#(.)(\w+ ?)#\U\1\L\2#g for @a;
print @a;
__END__
a  string