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

__output__

Domain is perlmonks.org