my $value = "\cA\cB\cC\cD\cE\cF\cG\cH\cI\cJ\cK\cL\cM\cN\cO\cZ\cP\cQ\cR\cS\cT";
print join(',', map {sprintf "%02x", ord} split(//, $value)), "\n";