my $email = "peter@gmail.com";  # In real case its from $member->email. So don't ask me to replace this with "peter\@gmail.com" or 'peter@gmail.com'
my ($u,$d) = split (/@/,$email);
print "$u,$d\n";