I find something like this tends to help. It seems AOL users just can't get it right:

for ($email) {
    s/@\./@/;
    s/@aol\.con/aol.com/;
    s/aol$/aol.com/;
}
[download]

gav^