$name =~ s{
    (?<!C(?=.O)) # doesn't match C-something-O starting at previous character
    (?<!\d)      # not preceeded by digits
    (?:\\|\/)    # back or forward slash
    (?!\d)       # not succeeded by digits
}
{ & }xg;        # replace with '&' (globally)