#!/usr/bin/perl -wl
$_="co";
while (1) { s/..(?=c)/$&^"CO"/eg; s/^/ /; print; }