filter-emails

cat $1 |
  tr '[:upper:]' '[:lower:]' |
  sed -e 's/^\.//' |
  sed -e 's/\.con$/.com/' |
  sed -e 's/\.con\.ar$/.com.ar/' |
  sed -e 's/^www//' |
  sed -e 's/^\+//' |
  sed -e 's/@@/@/' |
  sort |
  uniq |
  perl -ne "print if /\A([\w\!\#$\%\&\'\*\+\-\/\=\?\^\`{\|\}\~]+\.)*[\w\!\#$\%\&\'\*\+\-\/\=\?\^\`{\|\}\~]+@((((([a-z0-9]{1}[a-z0-9\-]{0,62}[a-z0-9]{1})|[a-z])\.)+[a-z]{2,6})|(\d{1,3}\.){3}\d{1,3}(\:\d{1,5})?)\$/"