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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print