my \a=[Z-] words[1..*-2,2..*];say 1+max [Z-] (0,|grep({a[$_]!=a[$_-1]},1..^+a),+a)[1..*,*]