$_ = 0;
substr $str, $_ + 1, 0, '/' while ($_ = index $str, 'CO', $_) > -1;