perl58 -e" print pack 'C*',  qw[84 67 49 67 83 50 79] ";
TC1CS2O