rather hot at on ([^C]|C[^P]|CP[^U])

##</code><code>##

perl -ne 'print "prob with $_" if /(\\[a-tA-T])|other tests/'

##</code><code>##

s/\\([a-tA-T])/\\\\\1/