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