#!/opt/perl/bin/perl -w

use strict;
use Encode qw/decode/;
use MIME::QuotedPrint qw/decode_qp/;

my $do_print = 0;
my $data = "";

for (<STDIN>) {
    SWITCH: {
	$do_print and do {$data .= $_; last};
	/^From: / and do {$data .= decode('MIME-Header', $_); last};
	/^To: / and do {$data .= decode('MIME-Header', $_); last};
	/^Subject: / and do {$data .= decode('MIME-Header', $_); last};
	/^Date: / and do {$data .= decode('MIME-Header', $_); last};
	/^$/ and do {$data .= $_; $do_print = 1; last};
    }
}

print decode_qp($data);
.