foreach my $email ( map { ( split( /\|/ ) )[1] } <INFILE> ){

    # Do something with $email

}