sub E {
  my $f = 'H'.(2*length($_[0]));
  return "eval(pack(q/$f/,q/" . unpack("H*",$_[0]) . '/))';
}