test-addr

use strict;
use warnings;
use Email::Address;
use Email::MIME;

my $str = q{"=?utf-8?B?PHByZT4NCltHb25lIFRvbW9ycm93?= =?utf-8?B?XSBZb3VyIHByaXZhdGUgbGluayB0byBmaXJzdA0KZXZlciBtb25leS1jcmVh?= =?utf-8?B?dGlvbiBhcHAhDQoNCmhpZ2hsYW5kZXJ0cmFmZmljLmNvbS9saW5rL2FtYXBw?= =?utf-8?B?DQoNCihjb3B5LXBhc3RlIGxpbmsgaW50byB5b3VyIGJyb3dzZXIgaWYgaXQn?= =?utf-8?B?cyBub3QgY2xpY2thYmxlKQ0KDQoNClJlZ2FyZHMsDQpFbnRpbmcgQmlzb3Rl?= =?utf-8?B?DQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoN?= =?utf-8?B?Cg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K?= =?utf-8?B?DQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoN?= =?utf-8?B?Cg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCjwvcHJlPn4=?=" <equipe@amoremcristo.com>};

my $email = Email::Simple->create(
  header => [ From => $str ],
  body   => "",
);

my $header = $email->header('from');

my $decoded = Encode::decode('MIME-Header', $header);

my $trunc = substr($decoded, 0, 320);

print $decoded;

# uncomment to make this terminate, ever
# $trunc =~ s/\s+/ /g;

my ($addr) = Email::Address->parse($trunc);

print $addr->format;