Here is a patch I added to Email::Valid to help with AOL addresses. I submitted it to the author, but don't think it was added. Someone else may find it useful. The issue I had was people from AOL putting in email addresses as me@aol, since many of them seem to think AOL *is* the internet. The project I was working on needed to validate email addresses for a mailing list, so Email::Valid was great, and adding this patch helped me a bit. 

--- Valid.pm    Fri Jul  9 01:34:55 1999
+++ Valid.pm.new        Wed May 10 11:03:20 2000
@@ -186,6 +186,9 @@
   my $self = shift;
   my $addr = shift;

+  # Since many AOL users think AOL _is_ the internet
+  # they sometimes leave off the .com, so let's help them
+  $addr .= ".com" if $addr =~ /aol$/i;
   $addr =~ s/\s+//g if $addr =~ /aol\.com$/i;
   $addr =~ s/,/./g  if $addr =~ /compuserve\.com$/i;
   $addr;
@@ -431,7 +434,9 @@
 Specifies whether calls to address() should attempt to correct
 common addressing errors.  Currently, this results in the removal of
 spaces in AOL addresses, and the conversion of commas to periods in
-Compuserve addresses.  The default is false.
+Compuserve addresses.  This will also tack on a .com to AOL addresses
+which fail to have them, ie. user@aol which is common for AOL users t
+o
+do. The default is false.

 =item fqdn ( <TRUE>|<FALSE> )

[download]

Cheers,
KM

In reply to RE: Email::Valid by KM
in thread Email::Valid by kilinrax

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.