perl -lpe 's/^.{22}\K0/$. % 58 ? $a||0 : $a++/e'  yourfile

Кратко:

Пропустите первые 22 символа и оставьте их в стороне от появления в сопоставлении из-за \K, а 23-й символ наверняка является 0 согласно вашей спецификации. Номер строки $. % 58 сообщит нам, нужно ли нам удерживать счетчик или увеличивать его.