Help for this page

Select Code to Download


  1. or download this
    (undef, my $domain) = split /\@/, $email;
  2. or download this
    my $domain = (split /\@/, $email)[1];