Besoin d'aide pour la création d'un regex

Bonjour,
je m'en remets à vous car aillant peu de connaissance en création de regex je n'arrive pas à obtenir le résultat souhaité.
Je m'explique, j'ai besoin d'un regex capable de détecter toutes les adresses emails finissant par exemple par "mail.com"
Pour être plus clair, j'ai une liste de mails dans une chaîne de caractères de la manière qui suit :
To: Client1@mail.com, client2@mail.com, client3@mail.com, random123@gmail.com
et je voudrais juste pouvoir boucler sur chacun des résultats trouvés, soit ici 3 résultats.
Pour l'instant, j'ai réussi à récupérer une seule adresse mail avec ce regex : [^>]+(mail.com)
Mais impossible de récupérer l'ensemble des adresses mails. Il faut donc prendre en compte les espaces existants et les virgules (en sachant que la dernière adresse n'aura pas de virgule).
Si vous avez une idée cela m'aiderai bien :D Merci d'avance ;)

Bonjour,

Si tu a une chaîne avec un séparateur, tu utilises split, pour avoir un tableau.
Ensuite tu boucles sur ton tableau pour chercher ce que tu veux, tu le met entre (), pour le récupérer dans $1

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use v5.10; my $line='To: Client1@mail.com, client2@mail.com, client3@mail.com, random123@gmail.com'; my @mail=split(/,/,$line); say @mail; for (@mail) { say $1 if /(\w+\@mail.com)/; }

---