my $value = "\cA\cB\cC\cD\cE\cF\cG\cH\cI\cJ\cK\cL\cM\cN\cO\cZ\cP\cQ\cR\cS\cT";
$value =~ s/(.)/sprintf "%02x,", ord($1)/sge;
chop $value;
print $value, "\n";