use MIME::QuotedPrint;

print decode_qp($txt);