#! /usr/bin/perl

while (<>) {
	chop;
	while (/=$/) {
		s/=$//;
		$_ .= <>;
		chop;
	}
	s/=([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	print $_, "\n";;
}

# testing space=3D"=20" &eacute;=3D=E9 data =
# from the end of the line