Используя awk, вы можете сделать это следующим образом
$awk '{ sub(/\@.*\./,"@"); print }' file foobar@org john.smith@com chunkylover69@dk qwerty@uk
Используя sub Substitute (найти и заменить), вы можете искать шаблон и заменять.