Help for this page

Select Code to Download

Select or download this

#!perl

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

Select or download this
```
peter@gmail.com => peter,gmail.com
```