my $y = pack('H*', $x =~ tr/://dr);  # 5.14+ required