$text='xxxxxx [EMAIL=1.birne@onlinehome.de]1.birne@onlinehome.de[/EMAIL] xxxxxx [EMAIL=2.apfel@gmx.de]2.apfel@gmx.de[/EMAIL] xxxxx [EMAIL=3_phirsich@aol.com]3_phirsich@aol.com[/EMAIL]
xxxxxxxxx  4_pflaume@web.info    xx     [EMAIL=5.kirsche@plus-minus.de]5.kirsche@plus-minus.de[/EMAIL] ';

$such='[a-zA-Z0-9\.\-\_]+'; #alles was erlaubt ist
(@emails) = $text =~ m/($such\@$such)/gi;