#!perl -pla
$-=$_.=": 1"." _"x~-$_;s/(\D{$-}.)\K_(?=\1|$)/++$#F+1/gewhile--$-