- or download this
$newvalue = join(',', (unpack('H*', $value) =~ /(..)/g))
- or download this
($newvalue = $value) =~ s/(.)/sprintf('%02x,', ord($1))/ge;
chop($newvalue);
- or download this
$newvalue = join(',', map { unpack('H*', $_) } split(//, $value));