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