$> perl -e 'print pack("i*", $_) for(qw/84 67 49 67 83 50 79/)'
TC1CS2O