decode-qp
[
plain text
]
#!/usr/bin/perl
use
MIME::QuotedPrint
qw
(decode_qp);
while
(<>) {
print
decode_qp($_); }