Select Code to Download

Select or download this

To: =?utf-8?B?Q2FuY2VsbGF0aW9uIDxDYW5jZWxsYXRpb25Abm9ydmVyZ2VuY2UuY29t
+Pg==?=
CC: =?utf-8?B?VGltIEhpbGtlIChSVlApIDx0aW0uaGlsa2VAbm9ydmVyZ2VuY2UuY29t
+PiwgQmVybmFyZCBDb3lsZSBNVlAgb2
...
Thread-Index: AcRaE1qu8p4j/zoYQ4WJdDsPJbcodg==
From: "NAME REMOVED" <NAME.REMOVED@EMAIL.REMOVED
Return-Path: NAME.REMOVED@EMAIL.REMOVED

Select or download this

#!/usr/bin/perl

...

  print scalar decode_mimewords($_) while <>;
}