my $string = 'ACOCOB';
$string =~ s/CO/C\/O/g;
print "$string\n";