quoted print の デコード

perlによる quoted printのdecode。

$ perl -MMIME::QuotedPrint -ne 'print(decode_qp($_));' < quoted-print.txt