#!/usr/bin/perl
use MIME::WordDecoder;
undef $/; print unmime(<>);