$name =~ s/(^|\s)
                    C
                    (\/|\\|%)
                    O
                    (\s|$)
                / % /xgi;

##</code><code>##

    $field =~ s/(?<!\d)     # not preceeded by digits
                (?:\\|\/)   # back or forward slash
                (?!\d)      # not succeeded by digits
            / & /xg;        # replace with '&' (globally)

##</code><code>##

    $field =~ s/(?:^|[^A-Z])
                    ([A-Z])\/
                    ([A-Z])\/
                    ([A-Z])
                (?:[^A-Z]|$)
                / $1$2$3 /xig;