perlでhex2bin

00 01 02 ff dg みたいな文字列をlinux上でバイナリに戻そうとしてちょっと手間取りました.
バイナリエディタでコピペしたらアスキーコードのコピペになって失敗。
emacsのバイナリモードも思った数字になりません.
検索したら２進数にする方法など出てきていまいち、結局昔とった杵柄でperlで変換しました。

#!/bin/perl
while(<>){
  $char = $_;
  $char =~ s/([0-9A-Fa-f][0-9A-Fa-f])\s*/pack("C", hex($1) )/eg;
  print $char;
}