.....
my %head;
my $to_quoted = "$m->{eml_name} ";
my $from_quoted = "$info->{mli_name} ";
if ($to_quoted =~ /[^\w\s]/) {
$to_quoted =~ s/([\\"])/\\$1/g;
$to_quoted = '"' . substr($to_quoted, 0, -1) . '" ';
}
if ($from_quoted =~ /[^\w\s]/) {
$from_quoted =~ s/([\\"])/\\$1/g;
$from_quoted = '"' . substr($from_quoted, 0, -1) . '" ';
}
$head{from} = $info->{mli_name} ? $from_quoted . "<$info->{mli_from}>" : $info->{mli_from};
$head{to} = $m->{eml_name} ? $to_quoted . "<$m->{eml_email}>" : $m->{eml_email};
$head{subject} = $info->{mli_subject};
....