Select Code to Download

sub name($) {
    ($name)= $_[0] =~ m/\@(.*)\./;
...
}

print name('aaa@myname.whatever.com');