I would shrink:

push my @addr, Mail::Address->parse($1);
$address = $addr[0]->address;

# to

$address = (Mail::Address->parse($1))[0]->address;
[download]

But that's because I kinda abhor such ephemeral temporary variables. At the very least, that push() is useless.

japhy -- Perl and Regex Hacker