#!/usr/bin/perl

while(<>){
    s/ //g;
    s/([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;
    print $_;
}