sub hex2bin{
  return pack "C*", map{hex($_)}split(/(?=(?:..)+$)/,shift);
}