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