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;