substr ($s, 1) =~ s/([A-Z])/ $1/g;