Wie finde ich E-Mail Adressen im Text?

Email::Find

#!/usr/bin/perl

use strict;
use warnings;

use Email::Find;

my $string = q~Dies ist ein test@test.tld Test
und noch eine nospam@renee-baecker.de Adresse.~;

my @mails;
my $finder = Email::Find->new(
sub{
        my ($mail,$text) = @_;        
        push(@mails,$text);
});

$finder->find(\$string);

print $_,"\n" for(@mails);

C:\community>email_find.pl

test@test.tld
nospam@renee-baecker.de

Ergänzungen, Kommentare

---+++ Main.??? - 14 Jul 2003 - Betreff