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