You're sooo close: (undef, my $domain) = split /\@/, $email; or else: my $domain = (split /\@/, $email)[1];

Update: Pay attention to Limbic~Region and hardburn, email addresses are more than your code or mine admits. I only corrected your syntax.

After Compline,
Zaxo