my $y = join '', map chr hex, split /:/, $x;