$s =~ s/(?=[A-Z])/ /g;
$s =~ s/^\s//g;