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