#!perl

use strict;
use warnings;

my $email = 'peter@gmail.com';
my ($u,$d) = split (/@/,$email);
print "$email => $u,$d\n";

##</code><code>##

peter@gmail.com => peter,gmail.com