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