my $string = ' [EMAIL=email@adresse.tld]email@adresse.tld[/EMAIL] '; my (@emails) = $string =~ m/([\s]+\@[^\s]+)/g; # jetzt adressen überprüfen