$a=<>;--$d>0&/$b/||($b=W,$d+=2),$b^=W^$a,$a=$_ for@a=<>=~/(.)\1*/g;print@a/2+$d/6+1|0