PHP code to extract emails from any type of text

<?php
ini_set('memory_limit', '-1');
function extract_email_address ($string) {
    foreach(preg_split('/\s/', $string) as $token) {
        $email = filter_var(filter_var($token, FILTER_SANITIZE_EMAIL), FILTER_VALIDATE_EMAIL);
        if ($email !== false) {
            $dds = explode("@",$email);
            $dds2 = explode(".",$dds[1]);
$emails[] = $dds[0]."@".$dds2[0].".".$dds2[1];
        }
    }
    return $emails;
}
$email = (extract_email_address('
<PubmedArticleSet>

<PubmedArticle>
    <MedlineCitation Owner="NLM" Status="In-Data-Review">
        <PMID Version="1">27339364</PMID>
        <DateCreated>
            <Year>2016</Year>
            <Month>06</Month>
            <Day>24</Day>
        </DateCreated>
        <Article PubModel="Electronic">
            <Journal>
                <ISSN IssnType="Electronic">2045-2322</ISSN>
                <JournalIssue CitedMedium="Internet">
                    <Volume>6</Volume>
                    <PubDate>
                        <Year>2016</Year>
                    </PubDate>
                </JournalIssue>
                <Title>Scientific reports</Title>
                <ISOAbbreviation>Sci Rep</ISOAbbreviation>
            </Journal>
            <ArticleTitle>De novo intrachromosomal gene conversion from OPN1MW to OPN1LW in the male germline results in Blue Cone Monochromacy.</ArticleTitle>
            <Pagination>
                <MedlinePgn>28253</MedlinePgn>
            </Pagination>
            <ELocationID EIdType="doi" ValidYN="Y">10.1038/srep28253</ELocationID>
            <Abstract>
                <AbstractText>X-linked cone dysfunction disorders such as Blue Cone Monochromacy and X-linked Cone Dystrophy are characterized by complete loss (of) or reduced L- and M- cone function due to defects in the OPN1LW/OPN1MW gene cluster. Here we investigated 24 affected males from 16 families with either a structurally intact gene cluster or at least one intact single (hybrid) gene but harbouring rare combinations of common SNPs in exon 3 in single or multiple OPN1LW and OPN1MW gene copies. We assessed twelve different OPN1LW/MW exon 3 haplotypes by semi-quantitative minigene splicing assay. Nine haplotypes resulted in aberrant splicing of =20% of transcripts including the known pathogenic haplotypes (i.e. \'LIAVA\', \'LVAVA\') with absent or minute amounts of correctly spliced transcripts, respectively. De novo formation of the \'LIAVA\' haplotype derived from an ancestral less deleterious \'LIAVS\' haplotype was observed in one family with strikingly different phenotypes among affected family members. We could establish intrachromosomal gene conversion in the male germline as underlying mechanism. Gene conversion in the OPN1LW/OPN1MW genes has been postulated, however, we are first to demonstrate a de novo gene conversion within the lineage of a pedigree.</AbstractText>
            </Abstract>'));

'));

echo "<table>";
for($i=0, $l=sizeof($email); $i<$l;  $i++){
echo "<tr><td>$email[$i]</td></tr>";
}
echo "</table>";

?>