$ perl -le '$_ = "aaa\@z.com bbb\@z.com ccc\@z.com"; s/(.+?\@)(.+?\.)(.+?)/$1something.$3/g;print'
aaa@something.com bbb@something.com ccc@something.com