Hey!

I'm a bit of a newb to this language (though I'm ambitious... currently I'm working on writing a script that makes PHP conform to "use strict;", in a limited sense). :)

I think that the people who've written comments on this so far have done some beautiful code, which is true to the intent of Perl, but isn't necessarily what's required for a beginner working on this project.

If I were you, (and I wanted to follow this line of thinking in terms of splitting the email addy into an array) I would do the following:

use strict;
use warnings;   # as always!

my $emailaddy = "grasp_the_sun\@notme.com";
my @emailarr = split /\@/, $emailaddy;
my $domain = pop @emailarr;
[download]

Just to give you an idea of how new to the language I am, I tested my original code, and I'd forgotten that I needed to preceed the "@" in the email address with a "\". But the code does work as presented.

Hope this helps!
--Dave.