email_addresses_v2.pl

Code:

---

#!/usr/bin/perl
use strict;
# replace dot with "."
# replace AT with @
# remove extra spaces
sub normalize {
 my $email=shift @_;
 $email =~ s/([a-z0-9_\-]+)([ ]+[_]*dot[_]*[ ]+)/$1./gi;
 $email =~ s/([a-z0-9_\-]+)[ ]+at[ ]+([a-z0-9_\-]+)/$1\@$2/gi;
 $email =~ s/ //g;
 return $email;
}
   
    my $file = shift @ARGV;
    my $ifh;
    my $is_stdin = 0;
    if (defined $file){
      open $ifh, '<', $file or die "Could not open file $file";
    } else {
      $ifh=*STDIN;
      $is_stdin++;
    }
   
    # undefine line separator to read entire content
    my $old_sep=$/;
    local $/=undef;
    my $content=<$ifh>;
    $/=$old_sep;
   
    # parse all emails like:
    # 1. [email protected] (no spaces)
    # 2. email @ domain.com (spaces near @)
    # 3. email AT domain.com (@ replaced with " at " case insensitive)
    # 4. email @ domain _dot_ com (. replaced with " _dot_ " case insensitive)
    # 5. email @ domain DOT com (. replaced with " DOT " case insensitive
    print normalize($1)."\n" while $content =~ m/\<?([a-z0-9._\-]+([ ]*@[ ]*|[ ]+at[ ]+)([0-9a-z_\-]+(\.|[ ]+[_]*dot[_]*[ ]+))+[a-z]{2,4})\>?/gi;

---

any cmd? on hw to use it?