$w =~ s/(\p{isLower})(\p{isUpper})/$1 $2/g or
    $w = ucfirst( lc($w) );