perl – 如何验证(或转义)用户的名称字段,以便它不会破坏我的电子邮件发送软件？

发送消息时我可以使用类似的东西来设置To字段:(在Perl中)

To: "$name" <$email>

在Perl中,我可以使用Email :: Valid验证$email部分,但是如何确保$name部分接受Unicode字符但不能被欺骗发送到多个地址或做一些其他令人讨厌的事情？例如这个

$email = 'bar@me.com';
$name = 'Foo" <foo@other.com>,"Bar';

似乎创建一个像这样的To字段：

To: "Foo" <foo@other.com>,"Bar" <bar@me.com>

发送电子邮件到两个地址.

use Email::Address qw();
use Encode qw(encodE);

s{\R}{}g for $email,$name; # newlines be-gone
my $to = Email::Address->new($name => $email)->format;
print encode 'MIME-Header',$to;