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