Meine Empfehlung ist die Verwendung eines Paketes wie Mail::Address oder Mail::Message::Field::Addresses.

Die gezeigten Varianten machen nämlich alle die Grätsche, wenn Display Names (oder Kommentare) Kommata enthalten, was recht häufig vorkommt und bei einigen MUAs sogar standardmäßig aus Adressdaten generiert wird:
To: "Wall, Larry" <lwall@perl.example>

Außerdem habe ich die Vermutung, dass der obige Code nicht mit mehrzeiligen Adressfeldern arbeitet, die bei langen Empfängerlisten entstehen. Aber der eigentliche Mail-Parser wird ja nicht gezeigt.