$_ = 'aaa@z.com bbb@z.com ccc@z.com';

$_=~s/(\@)([^\.]+)(\.)/$1something$3/g;

print $_;