use strict;
use warnings;

$_ = q{aaa@z.com bbb@z.com ccc@z.com};
print qq{$_\n};

s{([^@]+@)[^.]+}{${1}something}g;
print qq{$_\n};