> perl -MRegexp::Common=Email::Address -nle 'print $1 while /($RE{Email}{Address})/g' < text.txt > adressen.txt