$line = /([\w\.\-\_]+\@[\w\.\-]+\.\w{2,6})/;
$email = $1;