#!perl -p
s/ (?= *\\)/$i++%4?$&:qw(: $ *)[$j++%3]/eg