Select Code to Download

for my $mail (qw( bar@foo.com.com
                  bar@foo.computers.com
...
    printf "index '.com.com': %d\n", index '.com.com', $mail;
    printf "rindex '.com': %d\n", rindex '.com', $mail;
}