my $regexEmail = qw(\b([a-z0-9\-._]+\@[a-z0-9\-.]+\.(?:de|org))\b);

my @addresses = $line =~ /$regexEmail/g;