Funciones PHP para extraer emails o cuentas de twitter

 
function extraer($str){  
 
    $regexp = '/@(([a-z0-9-])+.)+([a-z0-9]{2,4})+/i';
 
    preg_match_all($regexp, $str, $m);
 
 
    return isset($m[0]) ? $m[0] : array();
 
}
 
 
$texto = "
 
bit.ly/IFt3Td
Intermałpa. Człowiek z gatunku pierdoła.Skromny, wolny na 
blogger
 
32	71	1,119	5%	85%	0.0
 
Pacifist زهيب @zuhaibizhar
zuhaibbinizhar.wordpress.com/
Drowned in this dunya,trying to keep myself afloat with the aim 
blogger
 
1	100	370	8%	83%	0.0
 
Meijer Sports Media @erikmeijer_
meijersportsmedia.nl
 
blogger
 
1	11	82,530	8%	72%	0.7
 
J. Mestre @kj_mestre
es.linkedin.com/pub/jordi-mestre/42/b/70/
 
";
 
// Aplicamos la funcion y obtendremos las cuentas de twitter
$texto=extraer($texto);
$i=0;
while ($i < count ($texto) ) {
    print $texto[$i];
    print '<br />';
    $i++;
}

 
function extraer($str){  
 
    $regexp = '/([a-z0-9_.-])+@(([a-z0-9-])+.)+([a-z0-9]{2,4})+/i';
 
    preg_match_all($regexp, $str, $m);
 
    return isset($m[0]) ? $m[0] : array();
}
 
 
$texto = "
 
bit.ly/IFt3Td
Intermałpa. Człowiek z gat
blogger
 
puredure@hotmail.com
 
1	100	370	8%	83%	0.0
 
Meijer Sports Media@team.com
meijersportsmedia.nl
 
blogger
 
1	11	82,530	8%	72%	0.7
 
J. Mestre pfffuredure@hotmail.com
es.linkedin.com/pub/jordi-mestre/42/b/70/
 
blogger
 
31	92	1,124	25%	70%	0.4
 
かとうぺーすけ dure111@gmail.com
本庄東 サッカー部 No.８ ☆ We are REDS ☆
company
";
 
// Aplicamos la funcion y obtendremos las cuentas de email
$texto=extraer($texto);
$i=0;
while ($i < count ($texto) ) {
    print $texto[$i];
    print '<br />';
    $i++;
}