my $string = 'ACOCOB';

##</code><code>##

$string =~ s(CO)(C/O)g;
print "$string\n";