my $x = "773536dcc30e2e847e0e7529e23460cf";
my $r = [ $x =~/\w{2}/g ];
my $salt = pack "C*", map{hex}@$r;
print $salt;



w56ÜÃ.„~u)â4`Ï