my $y = pack 'C*', map hex, split /:/, $x;