perl - replace every nth (and multiples) occurrences of a character with another character

Question

Does anyone know any unix commands/perl script that would insert a specific character (that can be entered as either hex (ie 7C) or as the actual character (ie |)) in the po

Answer 1

I have an idea in bash script :

perl -pe 's/,/(++$n % 3 == 0) ? "|" : $&/ge'  data.txt

That will do the trick.