use strict;

my $text = 'Das ist doch [EMAIL=meine@addresse.de]meine@addresse.de[/EMAIL] schonmer,asl [EMAIL=eineandere@addrese.de]eineandere@addrese.de[/EMAIL] man braucht';

my @adresses = $text =~ /\s+(\S+@\S+)\s+/g;
local $, = '|';
print @adresses;

use strict;
my @adresses = ();
while (<DATA>) {
   push @adresses,/\s+(\S+@\S+)\s+/g;
}

local $, = "\n";
print @adresses;
_ _ DATA _ _
Ok jetzt [EMAIL=jonny@example.org]jonny@example.org[/EMAIL] habenwirdoch noch die
While- [EMAIL=ralf@example.com]ralf@example.com[/EMAIL] -schleife vergessengehabtjetzt
aber noch [EMAIL=foobar@example.org]foobar@example.org[/EMAIL] schwachsinnstext

#! / usr/bin/perl
use warnings;
use strict;
use Mail::RFC822::Address ();

my $filename = "irgendwas.txt";
unless (open (FH, $filename)) {
  die "Error in opening '$filename': $!
";
}
else {
  while (<FH>) {
    chomp($_);
    foreach my $word ( split(/\s+/, $_) ) {
      if (&Mail::RFC822::Address::valid($word)) {
        print "$word
"; # oder mach sonst was mit $word
      } # if
    } # foreach
  } # while
  close (FH);
} # else