$newvalue = join(',', (unpack('H*', $value) =~ /(..)/g))
[download]

or

($newvalue = $value) =~ s/(.)/sprintf('%02x,', ord($1))/ge;
chop($newvalue);
[download]

or

$newvalue = join(',', map { unpack('H*', $_) } split(//, $value));
[download]

...