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