use strict;
use warnings;   # as always!

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