exctract emails from a file

awk '

{

for (i=1;i<=NF;i++) {

if ( $i ~ /[[:alpha:]]@[[:alpha:]]/ ) {

print $i

}

}

}' "file"