perl -lpe 's/^.{22}\K0/$. % 58 ? $a||0 : $a++/e' yourfile
Resumo:
Ignore os primeiros 22 caracteres e mantenha-os à parte da correspondência, pois o \K
e o 23º caracter, com certeza, são 0
por sua especificação.
O número da linha $. % 58
nos informará se precisamos manter o contador retido ou incrementado.