#! /usr/bin/perl

use strict;
use warnings;

while (<>) {
	printf("%c",hex($1)) while ($_=~s/([[:xdigit:]]{2})//);
	}