## ４桁の16進数を読み込んでバイナリ形式で書き出すサンプル

binmode(STDOUT);

while(<STDIN>) {
  chomp($_);
  $code = uc( $_ );
  printf("%c%c", unpack("C", pack("H2", substr($code,0,2))),
                 unpack("C", pack("H2", substr($code,2,2))) );
}