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

# to

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