sub name {
    my ($str) = @_;

    return $str =~ m/\@([^.]+)/ ? $1 : '';
}