This appears to work as well:

#!/usr/bin/perl -w
use diagnostics;

$s = q(THE DOGGIE FELL OVER);
$s =~ s/\b(\w)(\w+)\b/uc($1) . lc($2)/eog;
print $s;
1;
[download]

Celebrate Intellectual Diversity