#!perl -p
y/C-T//d