use MIME::Decoder;
my $decoder = new MIME::Decoder 'quoted-printable' or die "Foo!";
$decoder->decode(\*STDIN, \*STDOUT);