my @sorted_email =
    map { join "", reverse split /\0/ }
    sort
    map { join "\0", reverse /(\A[^@]+\@|\G[^.]+(?:\.|\z))/g }
    @email;
[download]

TMTOWTDI :-)

Makeshifts last the longest.