my @w = split(/(?=[A-Z])/,$s);