cat <stupid base64 junk>|perl -MMIME::Decoder -e '$d=best MIME::Decoder "x-gzip64";$d->decode(\*STDIN, \*STDOUT)'