sed 's/\([^@]\)@.*/\1/' mail.txt
cut -f1 -d@ mail.txt
awk -F@ '{print $1}' mail.txt