Parse .eml files to retrieve emailaddresses

gistfile1.sh

## 
## Parse a whole directory of .eml files
## and retrieve all printed emailaddresses, sort them, and remove duplicates
## and print to a file.
##

perl -wne'while(/[\w\.\-]+@[\w\.\-]+\w+/g){print "$&\n"}' *.* | sort -u > /tmp/output.txt

Create a MySQL query to update table later with same expression:

perl -wne'while(/[\w\.\-]+@[\w\.\-]+\w+/g){print "update `kijkmijnhuis` set `unsubscribed` = '1' where `email` = \"$&\"; \n"}' /tmp/output.txt | sort -u > afmeldingen_query.sql