Select Code to Download

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@g
+mail.com'
my ($u,$d) = split (/@/,$email);
print "$u,$d\n";