$x =~ tr/://d;
my $y = pack('H*', $x);