my $x = "The quick brown fox etc...";
$x =~ s/\b(\w)(\w+)\b/\U$1\L$2/g;
print $x, "\n";