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

##</code><code>##

    $_ =~ s/(?<=\@).+?(?=\.)/something/g;