Select Code to Download

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

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

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