#!/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.