You can do the lower casing inline like:

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

Though I'm not sure if this looks more or less like line noise :)

gav^