#! /usr/bin/perl -p
# qp.pl -- Quoted-printable fixer.

s/=\n//;1 while s/=([\dA-F]{2})/chr hex $1/e;