Select Code to Download

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";

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";