16進の文字列を文字にして吐くプログラム

#!/usr/bin/perl

while(<>){
    @list = split(/\s+/,$_);
    foreach $a (@list){
        $b = hex($a);
        $c = chr($b);
        push( @bin, $c );
    }
}

foreach $c (@bin){
    print $c;
}