#!/usr/bin/perl
#

while(<stdin>) {
    chop	;	
    $tmp=$_ ;	
    $tmp=~s/=([0-9a-fA-F][0-9a-fA-F])/pack("c", hex($1))/ge;
    $tmp=~s/= //g ;
    $a=$tmp."\n";
    print $a ;
}
