Extracting distinct e-mails from a large text file

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