in reply to regex search and replace globally

The .* is acting too greedy (and matching up to the second @).

In Section Seekers of Perl Wisdom