> perl -nle 'print $1 while /([^\s<(]+\@[a-z\d.-]+)/ig' < text.txt > adressen.txt