in reply to Splitting a string, Just want to Keep Half
my $domain = (split(/\@/,$email))[1]; print "Domain is $domain\n"; [download]