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