#!/usr/bin/perl -wl

    my @nums  = qw(84 67 49 67 83 50 79);
    my @chars = map {chr} @nums;

    print join '', @chars;

    __END__
    Prints:

    TC1CS2O

##</code><code>##

    my @chars = map {chr hex} @nums;