my $y = pack ('C*', split/\:/, $x);