my $rt = join('-',unpack('U*',$xx));