@temparray = unpack 'C*', $a;
$a = join ' ', @temparray;