#!/usr/bin/perl

use warnings;
use strict;

while(<DATA>) {

   chomp;

   my $email = "";
   ($email)  = $_ =~ m/([\w.+-]+\@[a-zA-Z0-9.-]*[a-zA-Z0-9][a-zA-Z0-9.-]*\.[a-zA-Z]{2,})/; # dafuer gibts aber auch eine Menge Module
   print $email, "\n";

} # while

__DATA__
Das ist ein Test wo div. emailadressen vorhanden sind wie zB [EMAIL=havi@thebest.at]havi@thebest.at[/EMAIL]
oder auch [EMAIL=havi@istdergroesste.at]havi@istdergroesste.at[/EMAIL], wahrscheinlich gibt es aber auch emailadressen
die wie folgt heissen: [EMAIL=havi@magichnicht.at]havi@magichnicht.at[/EMAIL], wie auch immer.

#!/usr/bin/perl

use warnings;
use strict;

while(<DATA>) {

   my @email = ();
   (@email)  = $_ =~ m/([\w.+-]+\@[a-zA-Z0-9.-]*[a-zA-Z0-9][a-zA-Z0-9.-]*\.[a-zA-Z]{2,})/g; # dafuer gibts aber auch eine Menge Module
   print join("\n", @email), "\n";

} # while

__DATA__
Das ist ein Test wo div. emailadressen vorhanden sind wie zB [EMAIL=havi@thebest.at]havi@thebest.at[/EMAIL]
oder auch [EMAIL=havi@istdergroesste.at]havi@istdergroesste.at[/EMAIL], wahrscheinlich gibt es aber auch emailadressen
die wie folgt heissen: [EMAIL=havi@magichnicht.at]havi@magichnicht.at[/EMAIL], wie auch immer.
Es funktioniert auch wenn 2 emailadressen in einer Zeile stehen, wie man hier sehen kann.
[EMAIL=havi@havi.at]havi@havi.at[/EMAIL] und [EMAIL=havi@zweimal.at]havi@zweimal.at[/EMAIL]

"Test@toast.local" <testo@123.123.123.123> (Bitte nicht wieder an [EMAIL=Test@Ost.eron.buy.me]Test@Ost.eron.buy.me[/EMAIL])

"Test@toast.local" <testo@123.123.123.123> (Bitte nicht wieder an [EMAIL=Test@Ost.eron.buy.me]Test@Ost.eron.buy.me[/EMAIL])