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

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