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