in reply to Splitting a string, Just want to Keep Half

Just use a slice 
my $domain = (split '@', 'dru@perlmonks.org')[-1];
print "Domain is $domain\n";

__output__

Domain is perlmonks.org

[download]

HTH

_________
broquaint

In Section Seekers of Perl Wisdom