my $from = Mail::Address->parse($header->get("From"));

##</code><code>##

my($from) = Mail::Address->parse($header->get("From"));