Skip to content

Instantly share code, notes, and snippets.

@rjbs
Created January 28, 2019 00:21
Show Gist options
  • Save rjbs/b5455afe4bf3813e5bfa990d2a7e4376 to your computer and use it in GitHub Desktop.
Save rjbs/b5455afe4bf3813e5bfa990d2a7e4376 to your computer and use it in GitHub Desktop.
use strict;
use warnings;
use Email::Simple;
my $text = <<'END';
Header-A: Foo
Subject: =?UTF-8?B?VGhpcyBpcyBhIHJlYWxseSBsb25nIGxpbmUgdGhhdCB3aWxsIGVuZCB1cCBnb2luZyBvdmVyIDc4IGNoYXJhY3RlcnMgd2hlbiBlbmNvZGVkIGZvciBVVEYtOA==?=
Header-B: Bar
Body
END
my $email = Email::Simple->new($text);
print $email->as_string;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment