Hi

Easy solution:

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

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

print $_;
[download]

Output:

aaa@something.com bbb@something.com ccc@something.com

regards,
Franklin