Perlでフォームから送られたメールの文字を復元する方法。

Perlでデコードさせるには、以下のプログラムでOK。

--- begin decode.pl ---

#!/usr/local/bin/perl -p
s/%(..)/pack("C",hex($1))/eg;

---  end decode.pl  ---

こんだけ。

% decode.pl maildocument > new_maildocument

のように使う。