my $email = 'me@john.com';
$email =~ s/\@john.com$/\@doe.john.com/;